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MAXI STAT Is The Most Versatile 
Statistical Analysis Program 
Available ... On Any Micro. 

Dr. Steven E. Mayer, PhD., Industrial Psychologist — Maxi User 




Focus On: Maxi Stat 



Who can use Maxi Stat? 

Anyone who needs an analysis of statistical data. Maxi Stat has suc- 
cessfully replaced dedicated mainframe and time-sharing statistics 
programs for business, financial and marketing researchers, educa- 
tional administrators, hospitals, medical schools and medical 
research facilities, agricultural testing, and social scientists. 
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What does it do? 

If you're familiar with SPSS (Statistical Package for the Social 

Sciences) and what it can do on a mainframe, you have a good idea 

of what Maxi Stat will do for your TRS-80. 

Maxi Stat offers many of the best features of SPSS (modified for 

microcomputers) as well as features you can't get in any other 

system, at any price. Maxi Stat is one of the most useful analysis 

packages available — anywhere. 

Read on to discover what this remarkable new tool can do for you . . . 

Maxi Stat offers: 

• menu-driven operation 

• user-created codebook 

• the ability to handle up to 255 variables 

• machine language code allowing speedy data entry 

• fast and easy editing 

• hundreds of tasks performed at one time 

• reports you can custom design for your specific needs 

• ample screen prompts to guide user 

• frequent automatic backup of data to help protect against power 
failures and system crashes 

• all phases of research analysis, including: 

write subfiles 

frequency distribution 

descriptive statistics 

crosstabs & chi-square 

correlation and linear regression 

t-test 

multiple linear regression 

analysis of variance 

multiple variable response 
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Look who's already using it! 

University of Alaska, Fairbanks, AK. • Florida Hospital, Orlando, FL. • Capital 
Research Services, Topeka, KA. • Center for Financial Studies and 
Development, Claremont, CA. • U.S. Army Psychological Testing Unit, 
Wahiawa, HI. • University of Nottingham Dept. of Social Administration, 
Nottingham, U.K. • Defense Intelligence School, Washington, DC. • Dept. of 
Recreation and Park Administration, University of Missouri, Columbia, MO. • 
Children's Hospital of Philadelphia, Philadelphia, PA. • Kingston City Schools, 
Kingston, N.Y. • Unlversidad de Monterrey, Monterrey, Mexico • University of 
Michigan, Dept. of Pediatrics, Ann Arbor, Ml. • Kodak Camera (Australia, Asia), 
Coburg, Victoria, Australia • The Williams Group Advertising and P.P.., Dallas, 
TX. • Medical College of Pennsylvania, Philadelphia, PA. • Parkway Day 
School, Philadelphia, PA. • University of Illinois, Chicago, IL. • Selkirk Health 
District, Nelson, B.C. Canada • Human Communications Systems, Reston, VA. 
• California Research Center, Los Angeles, CA. • WaltRich Marketing 
Consultants, Orlando, FL • Rutgers University, Piscataway, N.J. • Bethal 
Theological Seminary, Brooklyn Park, MN • Seton Hall University, Stlllman 
School of Business, S. Orange, N.J. • Plan-Test Associates. Phoenix, AZ. • 
General Mills Corporation, Minneapolis, MN. • Shearson, Hsydsn Stone 
Investments, Hollywood, CA. • Energy Systems Research Institute, Raleigh, 
N.C. • Minnisota Historical Society, St. Paul, MN. • Purdue University, W. 
Lafayette, ID. • Nova Scotia Agricultural College, Truro, N.S., Canada • Agrico- 
Chemical Co., Wilmington, DL. • Marketing Associates, Charlotte, N.C. • 
University of Ottawa, School of Psychology, Ottawa, Ont., Canada • Rock 
House Publishing, Kowloon, Hong Kong • Center for Applied Secial Sciences, 
Boston, MA. • Blake and Dickinson Marketing Research, Manchester, N.H. • 
United Nations, New York, N.Y., and hundreds more! 
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Maxi Stat prints many different report styles. 



TEE NEW CORRELATION i LINEAR REGRESSION PROGRAM 
SCORE ON COLLEGE ENTRANCE EXAM AS A PREDICT! 



Summary 

See for yourself what hundreds of other professionals have already 
discovered — Maxi Stat is THE solution to your analysis problems, 
and it's never further away than your TRS-80. Pull the plug on your 
time-sharing system and discover the power and convenience of 
Maxi Stat today! 
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By David Walonick 

Maxi Stat is available 
now for TRS-80 Models I 
and III with 2 disk drives, 
48K RAM, and printer. 



$199.95 



Soon to be available for IBM PC 

ORDER FROM YOUR FAVORITE DEALER or 

SHIPPING & HANDLING ARE EXTRA 
BOX 3435, LONGWOOD 



33.7 48. S 63.3 
COLLEGE ENTRANCE EXAM SCORE 



OR RFGRESEIO 
N CCEPFICIEN 
COEFFICIENT 



CALL TOLL FREE (800) 327-7172 (ORDERS ONLY PLEASE) 

PRICES SUBJECT TO CHANGE WITHOUT NOTICE 
FL 32750, (305) 830-8194 (QUESTIONS) 
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BITS AND PIECES 
Howard Y. Gosman 



ON THE COVER 

The computer has replaced the 
abacus. Unfortunately, too many Radio 
Shack owners don't know it. Our 
programmers are constantly speaking 
to Radio Shack computer owners 
who know very little about their com- 
puter beyond where to find the on/off 
switch. A little bit of knowledge can 
go a long way. The TRS-80 by far 
outperforms the abacus. 

Adults seem to have a bigger prob- 
lem than children in learning how to 
use a computer. Recently, I brought 
home a Radio Shack color computer. 
Within days, my six-year-old was writ- 
ing simple programs. I started her off 
with a game called POP-CORN (the 
best game designed for children as 
young as 4 years old). 

After POP-CORN, we switched to 
the Model III. A company called PDI 
has some excellent software for child- 
ren 4 and up (including adults). 
Memory Builder is an excellent start 



to familiarize your child with the key- 
board. PDI has a variety of other 
programs to teach your child basic 
skills. For the adults, PDI has a prog- 
ram called STEP BY STEP (for junior 
high to adult) which is an excellent 
step by step workbook approach to 
learning BASIC on the TRS-80 and 
interact with your computer (for more 
information on PDI programs, see our 
catalog). 

COMPUTRONICS CATALOG #10 

CATALOG #10 is on the way and 
should be in your hands by November 
1. CATALOG #10 is our largest catalog 
yet, and the first to include color 
printing. Ail current subscribers to the 
H & E COMPUTRONICS, Inc. Monthly- 
Newsmagazine (see your mailing label) 
will receive a FREE copy of the new 
catalog. An abridged version of this 
catalog will also appear in the Noverrw 
ber issue of 80-MICROCOMPUTING. 

continued on page 6 



The H &E COMPUTRONICS MONTHLY NEWS MAGAZINE is published by H & E 
Computronics, Inc., 50 North Pascack Road, Spring Valley, New York 10977. The H & 
E COMPUTRONICS MONTHLY NEWS MAGAZINE is not sponsored, nor in any way 
officially sanctioned by Radio Shack, a division of Tandy Corporation. 

The purpose of the H & E COMPUTRONICS MONTHLY NEWS MAGAZINE is to 
provide and exchange information related to the care, use, and application of the 
TRS-80™ computer systems. H & E COMPUTRONICS, Inc. does not take any financial 
responsibility for errors in published materials. Users are advised to check and edit 
vital programs carefully. 

The H&ECOMPUTRONICS MONTHLY NEWS MAGAZINE encou rages comments, 
questions, and suggestions. H & E COMPUTRONICS will pay contributors for articles 
and programs published in the magazine. 

TheH&E COMPUTRONICS MONTHLY NEWS MAGAZINE is typeset by Photonics, 
Ltd., 188 Highwood Ave., Tenafly, NJ 07670, and is printed by Kay Offset Printing 
Service, Inc., 154 Grand Street, New York, NY 10013. 
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EIGHTY 
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NEWSLETTER 

FOR TRS-80* USERS 
(Mod. I/II/III/16/COLOR) 






(ilteo /or dealers, mfg. and 
industry personnel.) 

Published 52 times per year 
and mailed First Class 

□ Latest TRS-80* System News 
D Product Notes & Reports 
D New Hardware & Software 

□ Industry Trends 

□ User Notes & Comments 

□ TRS-80* Article Summaries 

RATES 

$39.00 Year - First Class 

(US, Canada & Mexico) 

$75,00 Year- Foreign (Air) 

(Must be in US Funds) 

SAMPLE COPIES $2.00 

' EIGHTY SYSTEM NEWSLETTER 

! 3001 Route 27 Franklin Pk., NJ 08823 

1 

1 □ $39.00 (1-Year Subscription) 
? D $75.00 (Foreign-Air-US Funds) 

■ D $ 2.00 (2 Sample Issues) 

1- 

■ Name 

I Company 

g 

_ Address 

1 

| City 

I State Zip 

J (MC & VISA OK-Include card number, j 
_ expiration date & signature.) . 

| *TRS-80 is a Registered Trademark of Tandy | 
-Corporation/Radio Shack Div. j 



THE CRYSTAL BALL 

(News and Rumors of Interest to TRS-80 Owners) 



COLOR COMPUTER NOTES 

RADIO SHACK is now selling a 
new version of the COLOR COM- 
PUTER, but no one really knows 
about it, and Radio Shack is not 
really anxious for owners of the older 
version to know about the new version. 
Why is this? If you have purchased a 
COLOR COMPUTER recently, you'll 
find that it contains a modification 
that allows the addition of memory to 
a maximum total of 64K, If you have 
an older COLOR COMPUTER, the 
maximum memory size is only 32K, 
and you cannot get your computer 
upgraded! Which one do you have? 
Apparently, Radio Shack intends to 
upgrade the new COLOR COMPUTER 
even further. We expect to see Radio 
Shack release a new disk operating 
system that may add several features 
essential for a serious business-oriented 
system, including Random Access file 
capability and perhaps even support 
of a rumored COLOR COMPUTER 
Hard Disk Drive. With a new operating 
system and 64K of memory, the 
COLOR COMPUTER may even rival 
the Model II! 

Radio Shack's software for the 
COLOR COMPUTER is also being 
improved. COLOR BASIC 1.1 has 
now been released, and it has some 
excellent new features for owners of 
this machine. You can now produce 
graphics on a line printer, without 
any additional software. If you have a 
line printer that has a 7- or 8- bit 
option (such as the Radio Shack Line 
Printer VII), all you have to do is set 
the 7/8 bit switch to 8 bit. If you use 
a joystick, the TV will no longer 
display a string of characters when 
you press the "Fire-When-Ready" 
button— but if you use Radio Shack's 
CHESS or CHECKERS programs, you 
will now have to press the SPACE 
BAR when the program prompts you 
to press the "Fire-When-Ready" but- 
ton, and if you use their BUSTOUT 
program, you press the space bar to 
get the next ball. Under COLOR 
BASIC 1.0, the screen didn't display 
an S (for Search) or F (for Found) 
when the computer encountered an 
"ungapped" file on cassette— now it 



does. Finally, you can now have full 
255-byte records in your data files 
without the risk of losing information. 
Where can you get a COLOR 
COMPUTER Assembler/Disassembler 
for only $3? The September 1982 
issue of 80 U.S. contains an Assembler 
and a Disassembler, both written in 
Extended BASIC, along with complete 
and clear operating instructions, 

SERVICE CONTRACTS 

The cost of servicing your computer, 
as many of you well know, usually 
ranges from exorbitant to astronomical. 
In businesses especially, the custom- 
ary way to avoid crippling repair costs 
is to get a form of "repair insurance": 
the service contract. The service con- 
tract states that, for a single set fee 
and a set period of time, the servicing 
company will do any repairs necessary 
on the covered equipment, for no 
additional cost. However, rather than 
concentrating on protecting the users 
of microcomputers, many service 
companies have been more concerned 
with protecting themselves. Instead 
of paying an astronomical repair bill, 
you pay a service contract fee that is 
frequently more astronomical than 
any conceivable repairs could be. In 
the past, if you've shelled out for 
complete coverage of your computer, 
you probably have been tempted to 
hope that something major does go 
wrong with your machine, just so that 
you have a chance of getting your 
money's worth of repairs! And if your 
contract calls for on-site service (the 
repairman comes to your location), 
then the costs can be even higher. 
This is quite a dilemma, especially for 
the business user who can't afford to 
have a computer out of service even 
for a few days, Most businesses have 
got to have a repairman who can 
come to fix a problem immediately. If 
you do have a service contract, and 
then don't need any repairs, then 
you've just paid out a large sum for 
nothing (except "security"). If you 
don't have a service contract, then 
you will not only pay great sums of 
money for repairs, you'll also pay a 

continued on page 6 
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LUNAR LANDER 

As a vast panoramic moonscape 
scrolls by, select one ot many landing 
sights. The more perilous the spot, the 
more points scored -- it you tand 
sately. You control LEM main engines 
and side thrusters. One ot the best 
uses ot TRS-BO graphics we have ever 
seen. From Adventure international. 
With sound. Price: A 
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E/Z SCREEN 



MAKES THE TRS-80 SCREEN WORK 
LIKE A COMPUTER INSTEAD OF A TELETYPE 

NOW YOU CAN WRITE PROGRAMS THAT ARE i 



PROFESSIONAL LOOKING 
USER FRIENDLY 



' EASY TO USE 
AND FUN TO CREATE 



E/Z-SCREEN IS A SCREEN DESIGN 
AND CODE GENERATION TOOL FOR THE 
MOD I AND III 

FOR USE BY EXPERT AND NEOPHYTE ALIKE 

DESIGN SCREENS RIGHT ON THE SCREEN 
E/Z-SCREEN AUTOMATICALLY "WRITES" THE BEST DATA ENTRY 
CODE YOU'VE EVER SEEN 



"Once you feel familiar with the 
operating features of E/Z-SCREEN you 
will be anxious to design your own 
screens... I know I was, and I wasn't 
disappointed." -A. A. Wicks 
H & E COMPUTRONICS • Oct. 1982 

SOURCE LIB Systems, Inc. 
1670 Pershing St, Valley Stream, N.Y, 11580 (800)223-1087 

PRICE s 149.95 Dealer inquiries invited. All major 
credit cards accepted. 30 day money back guarantee. 



THE CRYSTAL BALL 

continued from page 4 
ridiculous hourly rate for the repair- 
man to drive to your location. For 
example, Radio Shack's present policy 
for on-site, non-service contract re- 
pairs is typical. In addition to parts 
and labor for the repair itself, you will 
pay $52 per hour for driving time 
(with a 2 hour minimum charge) plus 
tolls and mileage. With charges like 
this, you'd better pray the repairman 
doesn't get caught in a traffic jam! 
On the other hand, a Radio Shack 
service contract for a single Model II 
computer will cost in excess of $1300 
per year! That's a lot of money if the 
only repair you need is to have the 
disk drives realigned once or twice. 

So what's the answer for a com- 
puter owner? Well, at the present 
time we would suggest the following: 
if there is any way at all that you can 
do without your computer for a while, 
either by borrowing or buying another 
computer as a "hardware" backup, 
then don't get a service contract. But, 
if you are in a business, like most 
businesses, that needs to have a 
reliable computer every day, then 



you have no real choice— you have to 
have a service contract. Your business 
could depend on it. 

Well, we've stated the problem 
pretty completely. Most experienced 
users are well acquainted with this 
dilemma And here's some good news: 
service companies are starting to notice 
that the complaints of users are getting 
louder and louder. When a company 
has to charge so much for insurance 
that their machine keeps running, it 
does not inspire the greatest confi- 
dence in prospective users. If they 
charge so much, then the machine is 
bound to break down a lot, right? In 
order to stay competitive in the pre- 
sent market, companies are making 
greater and greater concessions to 
the needs and desires of users. As an 
example: two and a half years ago, I 
asked a rather high-ranking Radio 
Shack computer person (the manager 
of one of Radio Shack's first computer 
centers— the most knowledgable 
member of that company that I've 
ever spoken to) whether Radio Shack 
would ever consider leasing equip- 
ment to businesses. The answer was: 



"Never! Not in a million years!" Well, 
Radio Shack does have a leasing 
program now, only two years later. 
They do not turn a deaf ear to the 
requests and suggestions of users. On 
the contrary, they have, more than 
any other company, shown a steadily 
increasing tendency to accomodate 
their customers. As an example: in 
our own business, we absolutely 
depend on seven TRS-80 computers. 
To be without a service contract for 
each computer would be unthinkable. 
Our local Radio Shack repair people 
know how essential our computers 
are to our business, and when we 
place a service call they invariably 
rush over to our office as fast as 
possible, usually the same day. Not 
only are they fast, they're also very 
competent. For us a service contract 
is well worth the cost. 

At last, here's a prediction: in the 
very near future, we will see a drama- 
tic reduction in the cost of service 
contracts, which will eventually result 
in an industry-wide movement toward 
more reasonable pricing for service. 
This will be partly due to large com- 
panies which are slowly becoming 
more sensitive to users' needs, and to 
third-party service organizations that 
do nothing but service other com- 
panies' equipment, providing com- 
petitive pressure on manufacturers to 
provide service at reasonable rates 
(we will even see a growing number 
of independent servicemen who run 
their own repair shop in much the 
same manner as radio and TV repair 
shops operate today. All of these 
developments will result in a lot of 
happy users, and even more business 
for computer manufacturers. It's in 
everybody's best interests. 

BITS AND PIECES 

continued from page 2 

SELL YOUR TRS-80 AND BUY AN 
APPLE? 

Why did you buy a TRS-80 instead 
of an APPLE? If you did, you made 
the right decision. Our staff of in- 
house programmers are becoming in- 
creasingly negative about the APPLE. 
Our programmers who learned pro- 
gramming on a TRS-80 and later had 
to learn how to program the APPLE, 
continued on page 8 
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YOUR TRS-S0®...OUR BASIC BOOK, 

I rise rEnrEv I vvUrLB 

LEARNING TRS-80 BASIC starts where the Radio Shack® 
getting started manuals end, fulfilling the needs of 
elementary and intermediate level users. If you own or 
have" access to a Model I, 11/16, or III, our 544 page BASIC 
book is a necessity. 

IT'S SIMPLE 

We receive testimonials every day commenting on the 
simplicity of this book. 

m "very well organized... careful step-by-step progression" 

— R.G., Oxnard, CA 
® "extremely logical progression and excellent explanations" 

— J.S., Pacifica, CA 
» "easy reading style"— J. B., St. Louis Park, MN 

in fact we think it is so simple that.... 

WE GUARANTEE IT 




fly LEARNING TRS-»0 BASIC Iree tot 15 days and it you don't agim mat il ii as simpl* 
as we and users hk& yourself are saying, I hen ser>ct back the book in saleable coridilion 
and pjy nothing 




Call and order today. {800) 854-6505 our 24 hour order hot line 

(714) 588-0996 our Calif. (8anrv5pm> order line 



Please send me LEARNING TRS-80 BASIC on a 15 day FREE 

examination. At the end of that time, I will send payment, plus 
postage and handling, or return the book and owe nothing. On 
all prepaid orders, Visa or MasterCard charges, publisher pays 
postage and handling, send $19J[5 only (Calif, residents add 
6%) —same return guarantee. Offer good in USA only. 
Payment must accompany orders from P.O. Box numbers. 
Name of individual ordering must be filled in. 
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ENCLOSED ACCOUNT # 
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EXPIRATION DATE 
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P.O. Box 19669 Dept.M San Diego, CA 92119 

CosnpuSoft Books are available at your local computer and book stores. Allow 4 to 6 weeks for delivery. 
TRS-80 and Radio Shack are registered Trademarks of Tandy Corporation 
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• Simply to use even for the novice 

• Maintain virtually an infinite num- 
ber of disks all in continuous alph 
or /ip order essential for large lists 

• Sort 2260 entries (2 lull 40 track 
double density disks) in onlv J2K or 
an incredible 4640 entries (2 full 80 
track disks) in only 48K! 

• Super fait sort by alph or /ip order 
(8 sec for 1000 entries) both orders 
ran exist simultaneously on disk 

• High speed recovery of entries from 
disk pulls in over 11 per sec 1 

• Transfer old files to our system 

• Less than 5 digit zips have leading 
0's appended 

• Supports 9 digit zips. Canadian zip). 

• Zip order is "sub-alphabetized' 

• System adjusts to any DOS 

• Backup data disks are easily up- 
dated as entries are created, edited, 
or sorted extremely useful! 1 

• Optional reversal of name about 
comma 

• Permits telephone numbers, etc 

• Prints on envelopes or on labels. 1. 
2, 3 of 4 across 

• Test iabelenvelope printing lets 
vou make adjustments with ease 

• Master printout of your list in sever- 
al formats 

• Selective printing by specific zips 
or by zip range 

• Editing is simple and fast., auto- 
matic search Batch transfer of 
edited entries to backup disks 

• Provides for duplicate labels 

• Deleted entries have "holes" on 
disk tilled .lutnmaticaSK 

• Automatic "repeat" feature 

• Load and "scroll" through entries 

• Optional "ATTN:" line 

• Plenty of user defined fields with 
various options for simultaneously 
purging and selecting the printout 

• All 0's in address labels are re- 
plate by easier to read 0"s 

• Continuous display of numbers of 
labels/envelopes printed 

• Each disk entry automatically "re- 
members" how many mailings have 
been made 

• Primarily written in BASIC for eaiy 
modification embedded machine 
code for those speed sensitive areas 

• Hardware requirements: 12K, 
printer, and 1 or 2 drives 
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410-F East Roca 
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■ WORD PROCESSOR WORDSTAR: 1295 



TRS-80 MODEL I™ 
GOLDPLUG-80 

Eliminate disk re-boots and data 
loss due to poor contact problems 
at card edge connectors. The 
GOLD PLUG - 80 solders to the 
board card edge. Use your ex- 
isting cables. 
CPU/keyboard to 

expansion interface $18.95 

Expansion interface to disk, prin- 
ter, RS232, screen printer 

(specify) $9.95 ea 

Full set, six connectors. . . $54.95 



EAP COMPANY 

P.O.Box 14, Keller, TX 76248 

(817)498-4242 

*TRS-80 is a trademark of 

Tandy Corp. 



BITS AND PIECES 

continued from page 6 

hate it. They content that the APPLE 
version of BASIC is primitive and 
difficult both to learn and to use. 
Even worse, our programmers who 
first learned about computers by 
using the APPLE now want to do all of 
their programming on the TRS-80 
(and the Model III is now everyone's 
favorite machine). 

So how come the APPLE II is the 
world's largest selling computer? The 
answer is easy. Co into a Radio Shack 
store and ask the question, "Why 
should I buy your TRS-80 instead of 
the APPLE?" The usual answer is that 
"the TRS-80 is a very good computer." 
Now, try going into a non-Radio 
Shack Computer store and ask the 
opposite question: "why should I buy 
an APPLE instead of a TRS-80?" The 
usual answer is: "The APPLE and the 
TRS-80 are about the same price. The 
APPLE does everything that the TRS- 
80 does, but in color. Why do your 
check register and use VISICALC in 
black and white when you can do the 
same thing in color on the APPLE?" 

Well, I just wanted all TRS-80 
owners out there to know that you 
did make the right decision. The TRS- 
80 is better than the APPLE. APPLE 
BASIC is very primitive compared to 
the advanced BASIC used on the 
TRS-80 computers. In addition, you 
have a 64 (or 80) column screen on 
the TRS-80. The APPLE comes with a 
40 column screen that is terrible for 
word processing and makes business 
programming nearly impossible. The 
TRS-80 comes with just about every- 
thing you rea//y need in a computer. 
If you purchased an APPLE, you would 
have to purchase and install separate 
boards in order to use a parallel or 
serial printer. The problem becomes 
even worse when you try to actually 
make your APPLE print. Some people 
will tell you how great the APPLE 
graphics are for playing games, but 
most owners want to do a lot more 
than play games with their computer. 
My reply is, you definitely made the 
right decision in buying a TRS-80. You 
even, saved about $400 (the difference 
in price for a comparable APPLE). If 
you want to play games, you can use 
the $400 you saved to purchase an 
ATARI or COLECO video game! 



THE NEW RADIO SHACK CATALOG 

The NEW Radio Shack computer 
catalog (RSC-8) is stunning. Radio 
Shack is finally coming of age. Let's 
just run through some of the highlights: 

1. It's hard to believe, but Radio 
Shack is now selling LDOS. This is a 
good move on their part. LDOS is 
non-Radio Shack software (also sold 
through the COMPUTRONICS catalog). 
LDOS is an excellent alternative to 
TRSDOS, with many added features, 
including support of hard disk drives. 

2. The K-8 Math Series is an excel- 
lent series of programs for computer- 
assisted education that should be in 
every house that has a TRS-80 and a 
child in grade school. 

3. SUPERSCRIPSIT for the Model I 
and Model III adds all the major 
features that the original Model l/lll 
SCRIPSIT lacked. Now the Model 
l/lll version is nearly as good as the 
Model II version (although we at 
COMPUTRONICS still prefer the 
ELECTRIC PENCIL). 

4. Radio Shack has introduced a 5- 
megabyte hard disk drive for the 
Model I or III. The price is $2500, or 
about $500 per megabyte. The cost 
to add another drive is $1995 making 
a total cost of about $4300 for 10 
megabytes. However, non-Radio Shack 
hard disk drives tend to sell for about 
$2995 (for 12 megabytes), so the 
Radio Shack drives are presently 
priced a bit too high. 

5. A $995 portable data terminal 
allows users to access the TRS-80 
over the telephone. 

6. Radio Shack now has a very 
popular item that has been asked for 
by many COMPUTRONICS readers: a 
printer switch that allows the user to 
connect two printers to one computer 
or two computers to one printer. 

7. Radio Shack's biggest dud seems 
to be their new low-cost daisy wheel 
printer. It sells for $1495. My recom- 
mendation: stay away from it and buy 
the excellent quality $1995 version. 
The less expensive version is too slow 
and lacks many of the best features 
of the more expensive printer. 

8. Radio Shack's other new printers 
are great! As stated above, their hard 
disk drives are very overpriced com- 
pared to the competition, but Radio 
Shack's new printers priced just right 
to provide strong competition for 

continued on page 15 
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PROGRAM PREVIEWS 

A. A. Wicks 
This Month: VersaLedger II 




A series of advertisements by H & 
E Computronics for a new "VERSA" 
series of business programs piqued 
my interest because business-oriented 
programs are the mainstay of this 
monthly review. I made a request to 
review VERSALEDGER II, partly be- 
cause it seemed like a less complex 
program to start off the series, and 
partly because no business can be 
without a check accounting record of 
some kind, though they may never 
need complex payroll or inventory- 
type records. Then too, a good check 
record may also be used to advantage 
by an individual in this check-writing 
society that we live in. 

VERSALEDGER II, written by Rich- 
ard Kaplan, appears to be targeted 
for the users that I like to see benefit 
from small computer applications- 
businesses of from one to 200 em- 
ployees, for instance, and grossing 
from a few hundred dollars to a few 
hundred thousand dollars per year. 
To place this in, perspective with 
VERSALEDGER II, the program will 
support the records of up to 3000 
checks and/or journal entries per 
month and 1000 general ledger ac- 
counts, depending upon equipment 
configuration. It will do much more 
along the way, of course, which will 
be described— so let's go through its 
operation in more detail. 

VERSALEDGER I VS. 
VERSALEDGER II 

VERSALEDGER II is an upgraded 
version of the original VERSALEDGER 
program, which has been available 
for a year now. In addition to VERSA- 
LEDGER's check register capabilities, 
VERSALEDGER II includes a general 
ledger, which can produce a myriad 
of reports (customized balance sheets 
& income statements, trial balances, 
account listings, and many more). 
The most outstanding feature of 
VERSALEDGER II, however, is that 
this program may be used as a stand- 
alone check register, as a stand-alone 
general ledger, or as a linked check 
register/general ledger. Any or all of 



VERSALEDGER ll's features may be 
independently activated at any time. 

WHO CAN USE 
VERSALEDGER II? 

VERSALEDGER II will operate with 
all TRS-80 computers, the Apple II, 
Atari 800, Xerox 820, and IBM PC. It 
should also be noted that VERSA- 
LEDGER II will operate on "virtually" 
every CP/M-based computer that can 
read 8" single density disks. This is 
quoted from the manual, and is quali- 
fied with a small restriction due to 
the slight variations that may appear 
between CP/M systems. A configura- 
tion program is provided for CP/M 
users in order to customize VERSA- 
LEDGER II for most CP/M machines. 

Because of the large number of 
different computers that may use 
VERSALEDGER II, considerable ma- 
terial has been presented in the 
manual that accompanies the pro- 
gram, in detailing the preparation of 
backup copies of VERSALEDGER II, 
and program initiation. These instruc- 
tions are explicit, and the user should 
have no difficulty in this respect, or 
in subsequently running the program. 

A big boost in this regard for Model 
l/lll users is that the program comes 
on a disk with a Disk Operating 
System already on it— the eminent 
DOSPLUS, which also provides such 
comforts as lower case operation for 
Model I users, repeating keys, and 
full cursor control. I notice that more 
and more producers of programs are 
beginning to do this, and must agree 
that it is a great boon— especially for 
users with only one disk drive. This 
service of DOSPLUS operation is not 
extended to Model II users, however, 
who must place TRSDOS onto their 
VERSALEDGER II program disk. This 
should not be a problem with the 
instructions provided. 

VERSALEDGER II is truly a "turn- 
key" software package. Initiating 
computer operation (boot-up) loads 
the program and displays the main 
menu. VERSALEDGER II is completely 
menu-driven— that is, all operations 



From Aspen Software 

The Only Complete Document Proofreading System 
For CP/M®, TRS-80® and IBM-PC Word Processors 
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T.M. 



Featuring Random House® Dictionary 

• Complete Accuracy-looks up every word; 
does not use less accurate root word 
analysis, plus Random House Dictionary 

■ • Full Interactive Correction-standard 

• Instant Access to Dictionary 

• Compact-Random House Dictionary 
supplied in sizes to fit your system 
(50,000 words standard) 

QRAMMATik™ 

Beyond Spelling Checking 

• Detects typos, punctuation and 
capitalization errors, misused words 
and phrases 

• Analyzes Writing Style 

• Suggests Alternative Usages 

= NO ERRORS 

"The programs together (Proofreader and 
Grammatik) offer a dynamic tool for 
comprehensive editing beyond spelling 
corrections. " 

-Dona Z. Meiiach in interface Age, 5/82 
"Grammatik is the perfect complement to a 
spelling check program. " 

-Dr. Alan R. Miller in Interface Age, 5/82 
"If you use a word processor and a spelling 
checker, then you should investigate the unique 
capabilities of this program. Grammatik is a 
surprisingly fast and easy to use tool for 
analyzing writing style and punctuation." 

-Bob Louden in InfoWorld, 12/81 
"For the user who is as tight with his dollar as I, 
Proofreader is the program of choice. " 

— Stephen Kimmel in Creative Computing, 3/82 
"Anyone involved with word processing in any 
way, whether writing manuals, letters, 
brochures, newscopy, reports, etc. is encouraged 
to get the excellent program Grammatik." 

-A. A. Wicks in Computronics, 6/82 

Grammatik and Proofreader are compatible with all 
CP/M, MS-DOS (incl. IBM-PC), and TRS-80 word 
processors. Current CP/M formats: standard 8", 
Northstar, Omikron. Osborne, Apple. Please call/or 
write for details of minimum system sizes and availability 
of additional disk and operating system formats. 
Shipping costs included. Please specify your system 
configuration when ordering. Dealers inquiries 
invited. 

Proofreader Grammatik Both 

CP/M, MS-DOS $129.00 $150.00 $250.00 

TRS-80 Model II n/a $99.00 

i TRS-80 Mod. I/III $89.00 $59.00 $139.00 

I Random House is a registered trademark of Random 
House, Inc. Other registered trademarks; CP/M: Digital 
Research; TRS-80: Tandy Corp.; MS-DOS: Microsoft; 
IBM: IBM; Proofreader, Grammatik: Aspen Software Co. 



Aspen Software Co. 

P.O. Box 339-H Tijeras, NM 87059 
(505) 281-1634 
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FOR 

DELDD &1S 
only 
using PROFILE II or II + 




II 



H Do you need access to PROFILE II or If 

data files??? 
H Do you need to restructure your 2000 

entry data file???- 
31 Do you want to interface other programs 

to use PROFILE data??? 

If you can answer YES to two out 
of these three questions you need 



FDELOEB 

Remove deleted recoi 
profile data to free up w 



Remove deleted records from your 
profile data to free up wasted space with 
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fc SWAYBACK SOFTWARE 

I Box 1351, Merchantville, NJ 08109 

I (609) 778-0811 

I more information upon written request 

M or call 





The Banner Machine for iheTRS 80 I & HI 
•For use on ihe Epson MX SO with Craflrax 
•Uses dot graphics instead of the usual 
TKS-80 block graphics 

■ Menu-driven program 
•Operation similar 10 Scnptsit 

• Makes signs up to 10" tall x any length 
•10 sizes of letters from L*-8M* high 

■ Mono or proportional spacing 

• Automatic centering; Right and left justifying 
•Makes borders ol variable width up to I" 

Order The Banner Machine -$49.95 from 
Virginia Micro Syitema ___ 
13646 Jeff Davis Hwy. ^?T 
Woodbridge VA 22 191 — --- 
Phone (103) 49I-6S02 ~~~ 



Virgin I a 
Mlem 



SECURE 
PROGRAMS 



AND ASCII FILES 

WITH 

CODE 4 

COMES WITH 

LIST SOURCE 

AND BRUN UTILITY 

$ 19.95 

SEND CHECK OR 
MONEY ORDER TO 

HPB VECTOR CO. 



130 CENTER ST. 

EAST STROUDSBURG 

PENNSYLVANIA 18301 



DC 



ALLOW TWO WEEKS DELIVERY 



are performed by the computer as a 
result of menu selection and screen 
dialog. A very nice touch is that 
VERSALEDGER II is supplied with a 
complete set of sample data files- 
anyone can load VERSALEDGER II 
and start experimenting within an 
hour— a set of check register entries 
and a general ledger chart of ac- 
counts has already been set up. 

THE MENUS — 
QUITE UNUSUAL 

The various functions of the system 
are divided into four major menus 
(additional subsidiary menus appear 
during the execution of certain func- 
tions). The MAIN MENU is concerned 
with the maintenance of check regis- 
ter files, the GENERAL LEDGER SUB- 
MENU controls the functions of the 
general ledger, the FINANCIAL 
STATEMENT & CHECK REGISTER 
POSTING MENU allows you to print 
user-defined reports and to integrate 
the check register with the general 
ledger, and the SYSTEM MENU pro- 
vides you with utility functions for 
starting new files, and defining report 
formats. 

The menu routines are unusual. A 
movable pointer is used to indicate 
which option is being selected (on 
the Model I, an arrow is used; on the 
Model III a hand is shown pointing a 
finger at your selection; on the Model 
II, the option being selected is dis- 
played in reverse video). Whenever 
the program returns to the menu, the 
pointer will indicate which option 
was last selected. The pointer is 
moved up and down using the arrow 
keys. 

USING THE CHECK REGISTER 

There are two major components 
of VERSALEDGER II: the CHECK 
REGISTER and the GENERAL LEDGER. 
Either component may be used indi- 
vidually, or the two functions may be 
linked. I will first discuss the CHECK 
REGISTER functions. 

VERSALEDGER II is supplied with a 
pre-established check register chart 
of accounts. The user may choose to 
create his own unique chart of ac- 
counts, or he may wish to simply 
modify the pre-established chart of 
accounts for his own needs. A large 



business may have a great many dif- 
ferent accounts that they may wish to 
maintain on their ledgers. An individ- 
ual or small business operation may 
have only a few. With VERSALEDGER 
II, the choice is up to the user. 

Every entry to VERSALEDGER II 
may be posted to any account(s) in 
the check register chart of accounts. 
For example, in a payroll check $200 
might be posted to account 201 
(SALARIES), -$20 might be posted to 
account 202 (FEDERAL TAX), and -$3 
might be posted to account 203 
(STATE TAX). When a check register 
printout (REVIEW CHECKBOOK) is 
performed, each entry which com- 
prises this check will be printed, 
along with the total ($177). A listing 
may later be obtained of each account 
and its associated transactions over 
any given period of time. This is 
extremely useful at the end of a year 
for tax purposes. 

Menu selection of the "Add to 
Checkbook" option permits entry of 
check information. As data is entered 
and completed <ENTER> increments 
the check number by one. Entry error 
correction is possible. It is also pos- 
sible to skip check numbers, returning 
at a later time to enter these if 
desired. Deposits and bank adjust- 
ments (by typing D and B respective- 
ly), are labeled as entered. Of course, 
you have the option of having these 
in their own Account categories, too. 
Also, two deposits or adjustments 
may be entered with the same label 
— they will automatically be totalled 
when "Review Checkbook" is perfor- 
med. Thus, one may be a negative 
amount to cancel the previous, but 
both may be observed for review. 
Very useful for breaking one deposit 
into cash, checks, or credit cards, for 
instance. Or, perhaps to reverse-out a 
previous bank adjustment, or reversing 
a check issued and then having pay- 
ment stopped. 

If you wish to print a check, the 
format is for a New England Business 
Systems (NEBS) check # 9020. 

Locating a check register entry to 
be viewed, edited, or deleted can be 
done in two ways. The larger the 
check register, the longer it will take, 
ordinarily. But, with VERSALEDGER 
II, if you know the Item Number (a 
number which is appended automati- 
cally at entry time), then you may go 
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almost immediately to the entry to be 
retrieved. Check number 106 may be 
recalled as T106 (transaction 106) or 
15 (the fifth item in the check regis- 
ter). As you may surmise, the first 
method will take as long to search as 
the position down the list of the 
transaction entails, which may be a 
short time, but it may also be long. 
You may use either method. 

A complete review of the check- 
book ledger may be obtained by 
menu selection. The resulting immedi- 
ate listing will show the current ac- 
count, month and year, and will in- 
clude all checks, deposits and bank 
adjustments. You have the choice of 
sending this listing to the printer as 
well as the screen. Ten items at a 
time are displayed, and pressing 
<ENTER> causes the next "page" to 
appear. Completion of the listing will 
show initial balance, final balance, 
and outstanding check balance. The 
account file and month/year is also 
shown, of course. 

The procedure "Account Develop- 
ment and Edit", which is used to 
maintain a check register chart of 
accounts, is rather extensive but far 
from complex in the performance of 
the function. Similar options are avail- 
able for setting up a general ledger 
chart of accounts. 

Some comment is in order regard- 
ing the SORT FILE option. (This func- 
tion will sort a check register file or a 
group of general ledger journal en- 
tries by check number, by account 
number, or alphabetically according 
to the PAYABLE TO/DESCRIPTION or 
COMMENT fields.) The sort by check 
number option is very useful if a 
check is entered out of order, i.e., a 
handwritten check. When this is re- 
quested, the routine is loaded from 
disk, and a status display is provided 
giving a progress report on the sort. 
(Another useful feature is that the 
SORT FILE option is directly available 
as an option on three of the four 
main menus.) 

USING THE GENERAL LEDGER 

Users who have advanced accoun- 
ting needs may activate the GENERAL 
LEDGER SUBMENU of VERSALED- 
GER II. This portion of VERSALEDGER 
II may be completely ignored by a 
user operating only a check register; 



yet, the same user may easily expand 
at any time to full general ledger 
capability. 

VERSALEDGER II maintains a gene- 
ral ledger chart of accounts, which is 
independent from the check register 
chart of accounts. Information stored 
includes an account number, an ac- 
count title, type of account (balance 
sheet/income/expense), a current 
balance, and a year-to-date balance. 
Of course, accounts may be added, 
deleted, viewed, and edited at any 
time with ease. 

Journal entries may be posted to 
VERSALEDGER II in two ways. One 
option from the menu permits the 
user to enter each portion of an entry 
as a separate journal entry. (The user 
must be sure the transaction balances 
to zero.) Another option forces the 
user to enter balanced journal entries. 
Each portion of a journal entry is 
assigned the same journal entry num- 
ber, and they are grouped together 
on the transaction register. 

An advantage VERSALEDGER II has 
over virtually every other general led- 
ger presently available is that account 
balances are immediately updated 
when a journal entry is made. The 
end of month procedure need not be 
run in order to update balances, as is 
the case with most accounting systems. 

FORMATTING THE 
FINANCIAL REPORTS 

VERSALEDGER II prints a multitude 
of reports (17 in all), including 4 
types of trial balances (detailed or 
summary, monthly or YTD), a transac- 
tion register (a listing of all transac- 
tions entered in a given month), 
summary or detailed account listings, 
and user-definable income state- 
ments and balance sheets. 

Most commercial general ledger 
packages available restrict the user 
considerably in formatting income 
statements and balance sheets. This 
is not so with VERSALEDGER II. The 
options available to the VERSALED- 
GER II user in generating income 
statements and balance sheets make 
this program perhaps the most versa- 
tile general ledger package available 
today— VERSALEDGER II enables the 
user to format these financial reports 
in virtually any way desired— almost 

continued on page 13 




THE KING 

OF 

UTILITIES 

SUPER UTILITY PLUS 

'"/ believe 

SUPER UTILITY or 

SUPER UTILITY PLUS 

should be present at 

every TRS-80 disk 

installation." 

We didn 't say this; Paul Wiener did in 80 
Microcomputing, Jan. '82...but we sure 
agree with him! 

You heard about it! You read about it (80 
Microcomputing). Now get the "cadillac" 
at a special price! 

Compatible with MOD I, and MOD 111, and 
all the current operating systems! Copy 
files from any DOS to any DOS, MOD I or 
111, without converting! 

Zap 
Purge 
Format 

Special Format 
Disk Repair 
Memory 
Hie Utility 
Tape Copy 
Format without erase 
Disk Copy 
Special Disk Copy 
Configurable System 
MUCH MORE ■ Mod I & Mod III on Same Disk 

For MOD I/III . . . $74.95 

NEW 

Back up copy NOW included 

Also Available: 

Super Utility Plus Tech. Manual. . . $14.95 

"Inside Super Utility Plus" $19.95 



A Diuision of Breeze/QSD, Inc. 
11500 Stemmons Fwy., Dallas, Texas 75229 
To order call toll free 1-800-527-7432 

For product information (214) 484-2976 
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BEGINNER'S CORNER 

Spencer Koenig 

This Month: The Beginner's Library 

(Which Books to Buy) 



Hello again. It's time once more for inside information 
on where insiders get their information. Besides reading all 
of the latest periodicals around, either at the library (there 
are several hundred professional and semi-professional 
journals available) or by subscription (like the little gem in 
your hands), there are dozens of books that belong on 
your shelf, regardless of what your level is. 

When I began my journey into the world of microcom- 
puters, there was much less of a variety from which to 
choose. There was also much less information accessible 
written for the neophyte's point of view and experience. 
Today the problem isn't any easier. There are so many 
books for every level of programmer that it's too easy to 
make the wrong decision about which book to buy. Your 
alternative at this point is to read every review you can get 
your hands on — or maybe I can help. 

In this article, I'm going to give you a list of books that 
should be on your shelf. If they're not, then plan to get 
them or leave subtle hints around on what you would like 
for the coming holidays. 

Some of the books are as important today as when I first 
came upon them (in some cases more important), and 
some are very new books that should take the place of 
those less useful. The trouble with reviews is that they 
usually examine only one book at a time. This review 
article will examine quite a few, although not in as much 
depth. 

In example 1, I have listed several books which are not 
only good reference materials but well written for readers 
at any level. The Osborne books are not really at the same 
level. Volume zero has been re-done and is a little 
friendlier than the usual style of most of the other Osborne 
books I've come across. Volume zero might also be less 
useful than volume 1 for many of you, especially if you 
have a text that deals with the same topics. 

Those topics covered in Volume zero are: A brief 
overview of computers today; the parts of the computer 
that make the whole; choosing a computer; what software 
is and how to run it; computer languages; introduction to 
computer math; what happens inside the computer; and a 
section called "putting it all together", which deals with 
some terminology and concepts that at times get very 
technical. It's an inclusive summary of what goes on in the 
computer in much greater detail. 

All in all, Volume zero doesn't talk down to you, but it is 
very thorough and expects you to be able to think a little 
on your own. It is arranged like the other books in the 
series, with more general concepts in bold type and more 
specific information (often more technical) set in regular 
type. The advantage of this format is that you can read 
(and understand) what you like, and you can go back for 
more as you understand more. The book costs $7.95, and 
its value is $8.00 



I'm sorry, I didn't explain my rating system that I'll be 
using from now on. It's really very simple. A while back, 
some friends and I were discussing the latest movies that 
were around and giving them informal reviews. One of my 
objections to the way a movie was rated was that you 
couldn't tell if a film was worth the trouble of going to a 
particular theatre and spending a certain amount, or 
waiting for it to come to the local bargain theatre. 

Out of that discussion I came up with this scheme: I 
started rating a film by the dollar value I thought it was 
worth. For example, the block buster "STAR WARS," came 
to the movies costing about $5.00, and I gave it a value of 
$5.00, which meant that it was worth spending the full 
cost. If you paid less, however, then you got a real bargain. 

Another example would be "HUMANOIDS FROM THE 
DEEP." This flick came to my neighborhood costing $4.00, 
and I gave it a value of 75 cents. I know what you're 
thinking: "He had the nerve to go see that movie!" 

I can explain. I happened to be in the mood for some 
really bad movies (a rare event, but true). You get that way 
when you've spent a lot of time seeing intellectual foreign 
(often depressing) German or French films (excuuuse me). 
Well, that day I decided to go escapist, and there wasn't 
much around which I either hadn't seen or was interested 
in. So I went to a double feature of "MAD MAX" and 
"HUMANOIDS FROM THE DEEP." To make matters more 
interesting, I went to the Matinee when all the kids were 
there being noisy and commenting on the film while it was 
going on, and usually adding better dialogue than that of 
the actors. To make a long story short, I had a great time. 

I saw in one sitting what are probably the two worst 
movies of the last 10 years. Unfortunately, I can't go into 
detail here about why it was so much fun, but if you're 
interested, drop me a line and I'll be glad to answer you 
personally (send a SASE — I could get a mountain of 
requests). 

If by chance "HUMANOIDS" should come to a $1.50 
theatre as a double feature, and you're in the mood for 
movie-trash, then by all means have a good time. I believe 
it's destined to become a classic, with others like "ATTACK 
OF THE KILLER TOMATOES." 

Well, now that you understand my rating system, you 
should know that most of the books in my list are worth 
more than the actual value at which they're sold. Volume 1 
of the Osborne series is a prime example. This book is 
worth at least twice the value. I say this because I've seen 
books that cost twice as much but contain half as much 
information. In short, volume 1 is a real bargain. 

Volume 1 deals with some of the specific timing 
specifications, as well as an introduction into programming 
in assembler for micros. It also covers some of the same 

continued on page 14 
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like VIStCALC. 

With VERSALEDCER II, headings 
on these financial reports are com- 
pletely user-defined and may be prin- 
ted at any position on a page. Sub- 
totals and totals are again user-defined 
— any consecutive group of accounts 
may be totaled and printed at any 
position of a report. 

THE LINKED CHECK REGIS- 
TER/GENERAL LEDGER 

When both the check register and 
general ledger features of VERSALED- 
CER II are utilized, VERSALEDCER II 
can automatically link the two fea- 
tures. Summaries of each check regis- 
ter account may be posted to the 
general ledger at the end of a month. 
In this manner, a detailed record of a 
month's activity is available within 
the check register for audit trail pur- 
poses, and a summary is available 
within the general ledger. 

THE VERSALEDGER II 

MANUAL 

The VERSALEDCER II manual, 
which is more than 150 pages long, is 
comprised of seven major sections: 

"An Overview of VERSALEDCER 
II" explains the use of the system's 
menus, and describes the interac- 
tions between all of VERSALEDCER 
ll's functions. 

"Learning VERSALEDCER II" will 
guide even the totally uninitiated 
computer-user through the process of 
making safe disk backups, entering 
the VERSALEDCER II program, view- 
ing, printing, and manipulating data 
from the sample data files, and finally, 
initializing real data files, starting to 
enter real data, and using the system 
on a day-to-day basis. 

"The Main Menu" describes the 
operation of all functions related to 
maintaining the check register and 
the check register chart of accounts. 

"The General Ledger Submenu" 
describes every operation of the 
general ledger portion of the program. 

"The Financial Statement & Check 
Register Posting Menu" explains how 
to generate the user-defined balance 
sheets and income statements, and 
how to post the check register to the 
general ledger files. 

"The System Menu" describes the 



operation of utility functions such as 
initializing the system, starting a 
checkbook, general ledger account 
file, transaction files, and the special 
user-defined format files that are 
used by the system when generating 
balance sheets and income state- 
ments. 

Finally, a lengthy Appendix con- 
tains such valuable auxiliary informa- 
tion as: technical information about 
VERSALEDCER ll's disk files, how to 
make backups and format disks using 
DOSPLUS, how to get preprinted 
NEBS checks, an explanation of error 
messages, what to do if you have a 
problem, a summary of differences 
between VERSALEDGER I and VERSA- 
LEDCER II, and, most importantly, 57 
consecutive pages of sample printouts 
generated from the sample data files. 

The options in the four menus are 
described in a format that provides 
the user with both an in-depth de- 
scription of the option, and with a 
quick reference guide to the screen 
displays and operator responses for 
that option. The manual's description 
of each menu option is divided into 
three parts: 

(1) A brief summary of the option, 
which includes the option's location 
(which menu it is found in), a brief 
statement of its function, and a one- 
paragraph description of its purpose. 

(2) A depiction of every screen 
prompt and message included in that 
function, and examples of all possible 
operator responses. 

(3) A section providing 'additional 
information', which consists of an in- 
depth description of all uses of the 
option, how the option relates to the 
rest of the program. There are also 
technical explanations for program- 
mers, tips to make the program run 
faster, etc. 

An extensive set of sample print- 
outs is provided in the manual. These 
printouts trace the activity of a ficti- 
cious company over a 2-month peri- 
od (using the same sample data 
which is provided to the user on 
disk). Any questions a user might still 
have after reading the manual would 
undoubtedly be cleared by examining 
these printouts. 

continued on page 75 




This Special Limited Edition Package will be in high 
demand as only 500 copies will be made. They will be 
numbered 1 -500 and will be personally signed by the 
author, Kim Watt YOUR name will be embedded in the 
program as the serial number. The following is included 
with this SPECIAL LIMITED PACKAGE: 

1) SUPER UTILITY PLUS S/E in /CMD File Format 
Both MOD I and III versions are included, and your 
NAME will be the serial number. This will NOT be a 
protected disk, and you may make as many BACKUPS 
as you wish. The serial number is NOT changeable. 

2) TWO attractive SU'/SE binders. 
Binder *1 will include: 

Three manuals in LARGE format (81/2x11 ") 

(a) SUPER UT1LITY+ Manual 

(b) INSIDER SUPER UTILFTY by Paul Wiener/ 
foreward by Kim Watt 

(c) SUPER UTILFTY TECH Manual by Kim Watt 6 
Pete Carr 

3) Binder «*2 will include THE SOURCE CODE for 
SUPER UTILrTY PLUS. 

Yes.the'SOURCE CODE to this MAJOR program will 
be available to 500 programmers. This is FULLY 
commented by the author, Kim Watt, and is a machine 
language programmer's dream come true! After 
reading this, your machine language programming skill 
should increase tremendously. All of Kim's knowledge 
in ONE book! All at your disposal and for YOUR use." 

4) The license to USE Kim Watt's sub-routines.. 

will be granted to those 500 registered owners! These 
500 ONLY will be able to apply all of Kim's magic to 
THEIR programs No loyalty fee necessary. In other 
words IMPROVE YOUR PROGRAMS! Take Kim's ideas 
and expand on them! Never has anything EVER been 
done like this before. These 500 ONLY have the right to 
use our sub- routines. This information is NOT being put 
in the public domain. We are allowing these 500 to use 
our routines by buying our special package. All copy- 
rights and trademarks are retained by Breeze/ QSD, Inc. 

5) SU + /SE is NOT available from any dealer, but only 
directly through Breeze/QSD, Inc. Customers will be 
handled on a one-on-one basis. Confirmed orders will 
be pre-registered and a matching card must be returned 
by purchaser for full support from Breeze/QSD, Inc. We 
will know who each and every owner is, so full support 
can be given. We DO want you to sign and return our 
registration card for this support to commence, 
however. No exceptions will be made. 

6) This is a very important step that we are taking, and 
only a select group can appreciate the value in a 
package like this. This is NOT for the general mass 
market It is a college education in machine language 
written by a recognized expert It IS SU + in /CMD file 
form. It is a license to use Kim Watt's subroutines. It is an 
opportunity to vastly improve your product It is a 
collector' s item, also. Limited, Indeed. Last but not least 
it is expensive. On the surface only, however, as this 
product will make you an expert programmer if that is 
what you want You can literally write a DOS from 
studying the code! It will also make you a member of an 
elite group that has access to Kim's knowledge and can 
USE that knowledge to YOUR benefit 

Source Code is FULLY Commented. 

Price for the Super Utility Plus- 
Special Edition is 
$500 

Available later this year 
Call or write for more information 

"Credit to Kim Watt and Breeze/QSD must be given in the 
program and in the documentation for sub-routines used. 
There is NO royalty fee to pay however. 



A Division of Breeze/QSD, Inc. 
11500 Stemmons Fwy., Dallas, Texas 75229 
To order call toll free 1 800 527 7432 

For product information (214) 484-2976 
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BEGINNER'S CORNER 

continued from page 12 

information in volume zero, but again in more detail. You 
begin to understand just how a computer interprets your 
instructions and how the clock of the CPU keeps things 
clear so the machine doesn't crash, etc. Concepts such 
I/O, the stack, computer math, ASCII, indexed addressing 
and so on are all explained in some detail. As in volume 
zero, the text is arranged in two kinds of type, so you can 
read what you understand and go deeper into the subject 
later on. 

The Glossary from Running Press should definitely be in 
your hands when you begin getting into CPU's. I've bought 
this little jewel for a number of friends and associates when 
they were reading about something new that has a great 
deal of jargon. It could make the difference between 
understanding and maintaining interest or boredom and 
stopping dead in your tracks, because some word or idea 
wasn't fully explained. 

Crash Course covers much of the same material as the 
Osborne texts, but it is easier to deal with. It's organized as 
a self-teaching guide, with short explanations every step of 
the way. It's well done and quick reading for any level. If 
there are any teachers out there, this book has your whole 
year's lesson plans worked out for you. If you're only 
looking to get additional information on a particular point, 
this book is the easiest with which to work. 

The four books in example 1 contain all the information 
you will need to get a good start and a firm backround in 
computers. Joseph Rosenman confessed to me that, every 
now and then he still refers to Volume 1, whenever he 
needs to be refreshed on some inside information. 

EXAMPLE 1. COMPUTERS IN GENERAL 

P=price V=What I think it's worth 

An Introduction to Microcomputers vol 0, The beginner's book 

Osborne/McGraw-Hill by Adam Osborne and David Bunnell 

P= 7.95 V= 8.00 
An introduction to Microcomputers vol 1, Basic concepts 

Osborne/McGraw-Hill by Adam Osborne 

P= 12.50 V= 25.00 

Running Press Glossary of Computer Terms, An insider's guide 
to the language of the experts 

Running Press by John Prenis 

P= 2.95 V= 5.00 
Crash Course in Microcomputers 

Howard Sams inc. by Louis E. Frenzel jr. 

P= 19.95 V= 22.95 

EXAMPLE 2. BEGINNERS AT BASIC 

Learning TRS-80 Basic for the Models I, 11/16, and III 



TRS-80 Data File Programming Model I/III 

(also called Data File Programming in Basic) 
John Wiley and Sons inc. R.S. Cat. No. 62-2085 

by Finkel and Brown 

P= 11.95 V= 14.95 

Basic Programmer's Notebook 
Howard W. Sams & Co. Inc. by E. R. Savage 
(a good book, overpriced) P= 14.95 V= 7.95 

As you can see, in example two there are some excellent 
books available for the Basic beginner. Some, however, are 
good (worth having), but I think are still overpriced. On 
occasion I go to a computer show and see some books on 
sale. I suggest that you do the same, and save yourself a lot 
of money in the process. 

I suggest you pick up either of the two texts by David 
Lien. Either one would probably be all you'd need to learn 
the language or the machine. Lien's style is excellent, and 
his reputation for being complete is renowned, as I'm sure 
you have seen or heard from others. I intend to suggest its 
use as a reference and text at any school where I teach. 

The book by Savage is a collection of Basic subroutines 
that can help you write better programs. The text also 
contains advice about how to write better programs and to 
stay out of trouble (avoiding bugs) to begin with. It's a 
worthwhile book. I wish it weren't as expensive. 

TRS-80 Data File Programming is one of the best books 
on the subject. It is well written and easy reading. I have a 
lawyer friend who uses it to learn not only the language but 
also techniques that time and time again have saved him 
effort. The techniques described are applicable to game 
writing as well as inventory control. If you think about it, in 
some cases there really isn't much difference between 
games and inventory control. The topics covered are: 
clarity; readability; logic; data entry; error checking routines; 
sequential data file handling; and random access. There are 
tons of examples. 



EXAMPLE 3. 



INTERMEDIATE TO ADVANCED 



Compusoft 

Learning level II 
Compusoft 



by David A. Lien 
P= 19.95 V= 35.00+ 

by David A. Lien 
P= 15.95 V= 16.00 



Programming Techniques for Level II Basic 
R.S. Cat. No. 62-2062 by William Barden Jr. 
P= 4.94 V= 9.95 

Intermediate Programming for the TRS-80 Model I 
Howard W. Sams & Co. Inc. by David L. Heiserman 
P= 9.95 V= 10.00 

Fast Basic, Beyond TRS-80 Basic (Model I/III) 
J. Wiley & Sons by Gratzer and Gratzer 

P= 14.95 V= 15.00 

Basic Faster and Better 

IJG Computer Services by Lewis Rosenfelder 

(The best is overpriced) P= 29.95 V= 19.95 



continued on page 52 
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The format of this manual is excel- 
lent from the standpoint of readability 
and organization. There should be no 
question in the reader's mind as to 
any procedure or discussion — the text 
is very understandable in this respect, 
even to a person not particularly 
adept at financial recordkeeping. The 
three-part explanations of all functions 
transforms the manual into both a 
tutorial manual and a quick reference 
guide— a format which will please 
users at all levels of computer literacy, 
from a complete novice to a profes- 
sional programmer. The manual rates 
a 8 on our usual scale of 1 to 10. 

TECHNICAL SUPPORT 

VERSALEDGER II has full customer 
support should you encounter any 
difficulties. This is an increasing and 
welcome trend among the better pro- 
gram producers, and indicates an in- 
terest in more than just selling a 
program. A Customer Service number 
is provided in the documentation, for 
any calls of this nature. 

CONCLUSION 

VERSALEDGER II is probably one 
of the easiest programs around for 
any level of financial recordkeeping, 
from simply maintaining a personal 
check register to performing client 
writeups for multi-million dollar 
companies. 

The fact that the computer asks for 
minimum data, the user provides it, 
and the computer and printer do 
everything else, makes it ideal for 
relatively unskilled computer opera- 
tors. The fact that it can perform 
sophisticated financial functions 
makes it ideal for people with more 
extensive computing requirements. 
Finally, the fact that it can be opera- 
ted at any level between a simple 
check register and an extensive gene- 
ral ledger makes VERSALEDGER II 
ideal for anyone who needs a record 
of financial activity. 

VERSALEDGER II— H & E Compu- 
tronics, Inc. Spring Valley, N.Y.— In- 
troductory Price until December 31, 
1982: $149.95 

A. A. Wicks 

30646 Rigger Road 

Agoura, California 91301 ■ 



BITS AND PIECES 

continued from page 8 
other manufacturers. All Radio Shack 
printers are excellent quality and ex- 
tremely reliable (especially in com- 
parison to some of their original prin- 
ters). Radio Shack gets an A-plus for 
their selection of printers. One warn- 
ing about choosing a printer: if you 
plan to use your printer in a business 
application, buy a full sized printer 
(with a 14-inch wide carriage). Most 
business software is designed to create 
reports on a printer capable of printing 
132 characters per line at 10 pitch. 
The $1795 All-Business printer prints 
at 220 characters per second and is 
capable of correspondence quality 
print. 

The new Radio Shack catalog does 
show excellent progress by Radio 
Shack. They are finally meeting the 
competition head on. ■ 



LETTERS TO THE EDITOR 



Cassette Merge 



In response to the request from 
Mr. William Byberg and your reply to 
him in reference to a Model III 
cassette merge program (August 1982 
issue), perhaps the following will help: 

Both the Model 1 and the Color 
Computer have had cassette merge 
utilities published in various maga- 
zines. Since Radio Shack maintains 
ROM compatibility between the 
Model 1 and Model 3, at least for the 
most part, the Model 1 merge should 
work on the Model 3. (The pointer 
addresses are the same for this parti- 
cular use). 

I would suggest that Mr. Byberg try 
this short routine: 

1. Write down the contents of 
16633 and 16634 after loading the 
first program. 

2. If 16633 is 2 or more, subtract 2 
from it; poke this value into 16548. 
Also poke 16549 with the value in 
16634. 

3. If 16633 is less than 2, add 254 
to the value in 16633 and poke it 
into 16548. Also subtract 1 from the 
value in 16634 and poke it into 
16549. 

4. CLOAD the second program. 
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THE MOST POWERFUL, FLEXIBLE 

DISK MAILING SYSTEM FOR THE TRS80 

'SUPPORTS 65,000 NAMES* 

PowerMAIL is a highly sophisticated 
mass mailing system designed to run 
under all of the popular DOS's currently 
available for the Mod I or III. The program 
is written entirely in machine languagefor 
maximum operation speed, and occupies 
only 4K of the available RAM in your 
computer. There are no 'slow' periods 
when PowerMAIL is running. New 
features have been added to the program 
that others have always lacked. You now 
have the ability to keep track of mailings 
using the 24 'flags' that are incorporated 
into the PowerMAIL program. The 
PowerMAIL system will handle a file up to 
8 megabytes, or 65535 names, whichever 
is smaller. The program will run in as little 
as 32K and one disk drive, although 48K 
and 2 drives are desirable. The program 
will also sort the entire maximum file size 
and open up to 168 files simultaneously 
during the process. Author Kim Watt 

For MOD I/III...$ 99.95 

Hundreds of Satisfied 
Users... Scriplus 3.0 

Scriplus is a modification to 
Scripsit*™ which enables you to take 
advantage of the special functions, 
features, and print formats of your 
printer while your document is being 
printed. Allows you to: 

chang* arxpandvcl print 
chang* no. o* ckwutm p*r inch 
<"" UQdKliQ! *n •ld-lini' 

Features: 

• Compatible with all current DOS's (I or III). 

• Modifies ALL versions of SCRIPSn*". 

• Allows usage of MOD I version on MOD ill. 

• Allows MOD III versions to be BACKED UP for your 
protectioa 

• Files can be killed, loaded merged, or chained from 
the Scriplus directory. 

• Scriplus supplies an ALPHABETIZED directory with 
FREE space shown. 

• "END" returns to DOS READY instead of rebooting. 

• Printer can be stopped for insertion of text or forms 
alignment Inserted text can be edited prior to 
resumption of printing. 

• Specifically written for the MX-80 but will work with 
any printer that accepts CHR$ codes for control. 

• Optionally select line feed after carriage return. 

For MOD I/III . . . $39.95 



A Division of Breeze/QSD, Inc. 

1 1 500 Stemmons Fwy., Dallas, Texas 75229 

To order call toll free 1 800 527 7432 

For product information (214) 484-2976 
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ARRAY OF HOPE FOR BASIC PROGRAMMERS (PART 3) 



Arne Rohde 



5.2 Non-sequential Searching 



Irrespective of the optimization techniques employed, 
sequential searching can become very slow as array size 
increases. Even with less than 10 elements in an array a 
non-sequential search may be faster than a sequential 
search, although there may be other reasons for using 
sequential searching instead. One of the common reasons 
is that the array must be stored in a particular sequence, 
but sometimes a search is performed on a value other than 
the normal key, and when more than one array element 
may fulfill the search conditions. For example finding all 
custumers who have purchased more than a certain 
number of items in a particular month would normally be 
done by sequential searching if this was not the normal 
access requirement for the particular array, in which case it 
could be sorted beforehand. 

Many of the non-sequential search techniques require 
that the array be sorted into a particular sequence on the 
key being searched for. Some of the sorting techniques will 
be covered in a later article, but we have already seen how 
a binary tree has an implicit sequence which can be useful 
for searching. For most of the following search algorithms, 
we shall assume that the array has been sorted in sequence 
before the search is executed. 

5.2.1 Binary Search 

One of the better known non-sequential searching 
techniques is the binary search. The search derives its 
name from the fact that for each key comparison the 
remaining unsearched portion of the array is divided into 
two parts. The search can be illustrated easily with a small 
array containing a number of keys in ascending sequence. 
We shall assume an array with 7 elements contains the key 
values: 

1 4 9 16 25 36 49 

If we are searching for the key value 9, we first look at the 
central element in the array, in other words the one with 
key value 16. Since the required key value is lower, we 
have restricted the remaining search to those elements 
with a lower key value, or the first 3 elements in the array. 
The next element to be compared is the center element of 
the portion remaining to be searched, the element with 
key value 4. Since the required key value is higher, the 
remaining search is restricted to the elements with key 
value larger than 4 but lower than 16. There is only one 
element fulfilling this condition, and this is the required 
element. 

To find the element 3 comparisons were required, 
exactly the same as if the search had been sequential, 
starting from the beginning of the array. However this was 
the worst case for the binary search, whereas the worst 
case for the sequential search would require 7 comparisons, 
with an average of 3.5 comparisons for finding a random 
key. With the binary search, assuming the key is found, 
one key value requires one comparison (key 16), two 



require two comparisons (4 and 36) while the remaining 
four require three comparisons. Three comparisons are also 
required to ascertain that the required key is not in the 
array. The average number of comparisons for finding a key 
with the binary search is thus 17/7 or approximately 2.4, 
one less than that for a sequential search. 

For arrays of this size, the binary search will not offer any 
measurable advantages, since more complex calculations 
are required before each comparison can be made. If 
instead of 7 elements we need to search through 127 
elements, the average number of comparisons for the 
sequential search will be 63.5 but for the binary search it 
will be (1*1 + 2*2 + 4*3 + 8*4 + 16*5 + 32*6 + 
64*7)/127, or 769/127 which is approximately 6 comparisons 
on average. The worst case for the binary search is 7 
comparisons, whereas the sequential search requires 127 
for the worst case. On avarage the sequential search 
requires 10 times more comparisons to find a particular 
key, and with these array sizes the difference in speed can 
be quite noticeable. 

To search an array A containing AE elements (with 
subscripts from to AE-1) sorted into key sequence for the 
key value AR, the following code could be used: 

100 IL=-1: IH=AE: REM Low and high searched 

110 I=(IH+IL)/2: REM Find mid point for search 

120 IF I=IL OR I=IH THEN PRINT "Key";AR; "not found": 

GOTO 150: REM Subscript already used 

130 IF A(I)>AR THEN IH=I: GOTO 110 

ELSE IF A(I) < AR THEN IL=I: GOTO 110 

140 PRINT "Key";AR;"found at position";I 

150 etc. 

It is also assumed here that the subscript values I, IH, 
and IL are defined as integers. IL points to the lowest 
subscript which has already been compared, and IH to the 
highest subscript which has been compared. Initially these 
values are just outside the range of the array, since none of 
the elements have been compared. If we look at the 7- 
element array again (AE=7 and AR=9), the execution 
sequence will be: 

100 IL=-1:IH=7 

110 1=3 

120 

130 IH=3 since A(3)>9 

110 1=1 

120 

130 IL=1 since A(l)<9 

110 1=2 

120 

130 

140 "Key 9 found at position 2" 

The code for the binary search is relatively compact and 
should be easy to follow, but there are a few points to note 
concerning the efficiency of the code. The first is that 
either one or two comparisons are made to check the key 
value, and two comparisons will be made for the required 

continued on page 18 
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JUST LIKE FIRE 

Michael Herbert Shadick 



We've all heard the same or similar 
claims to the effect that computers 
are somehow capable of changing us 
as human beings, or even that they 
will eventually (horror of horrors) ren- 
der us somehow less than human. 
Such claims are, of course, not only 
complete hogwash, but do in fact fly 
in the face of human history. Indeed, 
to even utter claims such as these is 
to overestimate the computer's 
power over us, and, even more signif- 
icantly, to grossly underestimate our 
own powers and capabilities. 

I ask you: has the coming of the 
computer age changed us, or even 
threatened to change us, for exam- 
ple, physically? The answer is (with 
the possible exception that we might 
be becoming slightly more sedentary, 
cerebral creatures)— of course not! 
Likewise, computers cannot change 
us in any other way— not emotionally, 
not spiritually, not even, if you will, 
metaphysically! Unless, of course, we 
wish to change in any (or all) of those 
areas. And then, the computer can 
serve as a most effective tool in 
helping us bring about whatever 
changes we desire in ourselves. 

Computers, then, are no less— and 
no more than tools. The same can be 
said of the hammer, or of the loom, 
or of the telephone, or of any of 
humanity's other inventions. For each 
of them, in their own ways, have 
altered the course of human history. 
Yet it isn't our race's inventions per 
se which change things, but rather, 
the ways in which we use them. 
That's a mighty important distinction, 
which the so-called "computer critics" 
invariably fail to appreciate. It was, is, 
and always will be we who use our 
inventions, not vice versa. The com- 
puter is just another tool in our hands 
—albeit doubtless one of the most 
potent ones our species has ever pos- 
sessed. 

Fire, in the early days of its con- 
quest by our prehistoric predeces- 
sors, was probably accuses of the 
same things which computers are 
accused of today. Certainly the con- 
quest of fire did change the lives of 
its conquerors! But the species it- 
self—our species— was then, and is 
now, relatively rigid and rather fixedly 



inflexible. We — each and every one 
of us — have the same basic needs, 
the same wants, and the same de- 
sires as those of our parents, our 
great-grandparents, or of our ancestors 
from however far back one wishes to 
go. The underlying configurations of 
human existence remain constant 
from generation to generation. The 
only aspects of our individual and 
collective existence which do change, 
then, are the ways in which we meet 
our needs, wants, and desires. That 
is, the tools we use to get what we 
want out of life. 

There has never been a better 
tool, nor one with greater and more 
far-reaching capabilities and potenti- 
alities, than the computer. So in that 
regard, computery will doubtless con- 
tinue to have increasingly profound 
effects on our lifestyles. But to say 
that the computer will change us, 
altering who and what we are — I 
wouldn't bank on it, not for a nano- 
second! Ours is, after all, a mighty 
(and mighty durable) species. We 
have conquered ever more sophisti- 
cated natural phenomenon, and have 
turned those forces of nature into 
tools at our beck and call. Fire itself 
was one of our race's earliest major 
conquests. Electrical energy, as uti- 
lized in today's computers, is one of 
our latest major conquests— but, with- 
out a doubt, not our last. Fire and 
computers have this in common: they 
represent natural forces which have 
always been around us, but which we 
have now placed in our hands. They 
— the forces, whatever they may be— 
are not about to take control of the 
very species which conquered them! 

So the next time some self-styled 
skeptic tells you that computers are 
"taking over" or some such inanity, 
you might reply with a statement to 
this effect: 

"Yes, computers are beginning to 
effect every facet of our lives . . . just 
like fire!" 

Everlastingly at it, 

Michael Herbert Shadick 
Cedar Square West, Apt. E-414 
1515 South Fourth Street 
Minneapolis, Minnesota, 55454 ■ 
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Mlcrosette's reputation for quality and 
credibility has made us the leading 
supplier of low cost, short length cas- 
settes. Now, we also offer 5 '/«- Inch sin- 
gle sided, soft sector diskettes in 
single or double density. We give the 
same attention to quality and reatiabil- 
Ity for our disks as we do for our cas- 
settes. 

LOOK AT OUR PRICES 
includes boxes and shipping 



CASSETTES Boxes included 
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10 Pack 


50 Pack 


C-10 


$ 7.50 


$ 32.50 


C-20 


9.00 


39.00 


C-60 


11.00 


50.00 


C-90 


15.00 


70.00 
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MD-5 | $25.00 $110.00 



UPS shipment in Conl. USA incl. 
We can not ship to P.O. Boxes 
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Qty. 
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key value. This tends to slow down the search slightly, 
compared to the sequential search which only uses a single 
comparison. Another factor is that a specific test is made to 
terminate the search when the key is not found. This was 
not necessary for the sequential search, and again it will 
slow down the binary search. The loop CAN be coded in a 
single line to speed up processing slightly, but the legibility 
suffers accordingly. The single line, replacing lines 110, 120 
and 130 in the above code, could be as follows: 
110 I = (IH + IL) / 2: 

IF IH - IL <= 1 PRINT "Key"; AR; "not found": GOTO 150 
ELSE IF A(I) > AR THEN IH = I: GOTO 110 
ELSE IF A(I) < AR THEN IL = I: GOTO 110 
The termination condition has been changed so that it 
requires only a single IF statement, and the key comparisons 
can be made in the ELSE portion of this comparison. If 
speed is the main objective then this version, perhaps with 
deletion of unnecessary spaces, could be used. For even 
faster speed the termination test could be moved, since it 
is executed unnecessarily when the key is found and on 
the first pass. The reason for the present position is that 
the code will execute correctly if the array contains zero 
elements, and if it were moved after the key comparisons 
it would have to be duplicated, once for a lower key and 
once for a higher key. 

In a test to compare the speed of a sequential and a 
binary search an array containing the integers in ascending 
sequence was constructed. A search was then made with 
50 random integers, most of which would be found in the 
array, and with different array sizes. The following times 
were obtained, but since the search keys were generated 
with the RND function, they cannot be reproduced exactly. 
The times, however, are representative of the time differ- 
ences which can be expected as the array size increases. 
# array Time in seconds to find 50 key values 
elements Sequential Binary 

15 8.2 6.7 

31 16.7 8.5 

63 3)0.6 10.8 

127 54.1 12.0 

255 118.4 13.8 

511 233.0 15.1 

1)023 458.9 17.3 

The sequential search times are approximately doubled 
for each doubling of the array size, whereas the binary 
search has an almost constant increment in time for each 
doubling of array size. These observations correspond 
closely to the theoretical values expected for the search 
times. 

5.2.2 Combined Searching 

The binary search requires a division by 2 to calculate 
the subscript of the next array element to be compared. In 
some programming languages this division or subscript 
calculation may not be simple, or it may be time consuming. 
To avoid this calculation a combined search method can be 
used, the first part of the search consists of comparing 
elements at fixed distances from each other until an 
element with a higher key value is encountered. The next 



part consists of a sequential search from this point until the 
required key value is found, or it is determined that the 
value cannot be found. The number of comparisons 
required is considerably less than that for a pure sequential 
search, but greater than that for a binary search. The ideal 
distance for the first part of the search would be the square 
root of the number of array elements, giving an average 
total number of compares equal to this value. Thus 10 
compares would be required for an array with 100 elements 
on average, compared to 50 for a sequential search and 
slightly less than 6 for a binary search. The code in Basic is 
slightly more complex than either of the other methods 
since two search loops are required, and the method 
would probably not be useful as a Basic routine, but in 
assembler or other languages it could be a useful addition 
to the non-sequential search repertoire. Using our array 
and variable definitions as before the algorithm can be 
coded as follows: 

100 1 = 0: IS = SQR(AE) + 1: REM Make step non-zero 
110 IF I + IS < AE: 

IF A(I + IS) <= AR THEN I = I + IS: GOTO 110 
120 IF I < AE: IF A(I) < AR THEN 1=1+1: GOTO 120 

ELSE IF A(I) = AR PRINT "Key"; AR; "found": GOTO 140 
130 PRINT "Key"; AR; "not found" 
140 etc. 

The two search loops are in line 110 and line 120. The 
first loop steps through the array until a key value higher 
than the desired one is found. The sequential search then 
continues from the previous value which was not higher 
than the desired value. Obviously we do not need to 
extract the square root of the number of elements in order 
to use the method, and for arrays of reasonably static size 
a constant would be used instead. For arrays which vary 
considerably in size a simple calculation or array lookup 
could be used instead to find an appropriate step value. 
The square root is used here since it yields the optimum 
step value for any array size. As in the example it would be 
necessary to ensure that the step value is greater than 
zero, irrespective of the size of the array. 

If we have an array with 15 elements containing the 
values from to 14 (corresponding to the subscripts) and 
we need to find the element with key value 11 then the 
execution sequence for the routine will be as follows: 

100 1=0: IS=4 

110 1=4 since A(4) < 11 

110 1=8 since A(8) < 11 

110 

12)0 1=9 since A(8) < 11 

120 1=10 since A(9) < 11 

120 1=11 since A(10) < 11 

12)0 "Key 11 found" 

140 

5.2.3 Binary Tree Search 

We have already looked at the structure of a binary tree, 
and how a binary tree can be traversed if the appropriate 
pointers are present for each element. For searching only 
the normal left and right pointers are required, but we shall 
assume that the negative pointers useful for traversing are 

continued on page 20 
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continued from page 15 

5. Poke 16548,233 and poke 
16549,66. 

6. LIST the combined program. 
The above routine assumes that 

the second program has line numbers 
higher than those of the first program. 
If not, a simple renumber routine can 
be used. In that case, it is necessary 
to load the second program, renum- 
ber it, save it back to cassette, then 
load the first program and proceed as 
above. 

C. Russell Eurich 

150 Sunrise Lane 

Pottstown, PA 19464 

Inserting Diskettes 

In a recent issue, you refer to how 
important it is to close the drive door 
correctly in order to minimize disk 
thrashing. Could you describe the 
correct step-by-step procedure that 
insures that the disk will do just that 
— correctly lock into place? 

Andy Chakires 

1704 Miramar St. 

Los Angeles, CA 90026 

It's tough to describe this as a 
procedure, since there are so many 
different makes of disk drives that are 
all slightly different. The problem that 
occurs is that the diskette is not 
properly grasped by the plastic knob 
that grips the hub and holds it in 
place while it spins. If is slightly off 
center, the hub can be bent or frayed, 
and of course the diskette will not be 
read correctly. 



H & E Computronics welcomes 
letters on any subject. If you wish a 
personal reply, please enclose a self- 
addressed, stamped envelope. 

H & E Computronics also welcomes 
readers to submit programs, articles, 
or reviews for publication. Please ad- 
dress correspondence to: 

The Editor 

H & E Computronics 

50 North Pascack Road 

Spring Valley, New York 10977 
Please submit programs (and articles, 
if prepared on a word processor) on 
media (cassettes or diskettes). Also 
please indicate the system it was 
prepared on, and include any neces- 
sary instructions. ■ 
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Proven Software Solutions 

for the TRS-80, PMC-80 & 81 User 

At VERY Special Prices 



GAMES 




Ok 






Dj' 






Or 


TIM IM 


F»-tci 


Till 


1 ■■ 


P'ICl 


Till 


Ut1 


PY4* 


AdYincad Opening Syilimt 
* VOYAGE OF THE VALKYRIE 




SCOn ADAMS' ADV tl 4S S 13 


tie: 5 

ATTACK force 






D 32* 1 4 III , 39.96 


32 n 


D32KI6III . .. 


39.95 


31 00 


D32KI 6 III 


18.95 


(9 00 


T 18K 1 4 III .. .. 29.85 


24 DO 


SCOTT ADAMS 40V 44. 45 4 46 


T 16* I 6 III 


1695 


12.00 






32* 1 4 III 


OS 95 


31 no 


COSMIC FIGHTER 






AdTtnlurt Initiation a I 




SCOTT ADAMS AQV 


IT IE1IS 


D 32* 1 A III . . 


19.95 


15 00 


ARMOR PATHOL 




D32KI4 III . 


39 95 


31 no 


Tie* >4 iii .... 


15.95 


1200 


□ 32K r 4 III . . 24.96 


19.00 


SCOTT ADAMS' ADV 410 411 4 ■!? 


DEFENSE COMMAND 




T 16K 1 1 III 19.96 


15 00 


32* 14 111 


39.95 


31.00 


D32Kt4MI 


19.95 


19.00 


COMSAT 




SEA DRAGON 






T 16K 1 4 III . 


15.95 


12 00 


D 32* 1 4 HI 20 95 


16 00 


32KI4 III 


24 95 


19.00 


GALAXY INVASION 






! T 16K I 4 III 19 95 


15 00 


T 16* I 6 III . . 


16.96 


' 1 II, 


D32KI4III. 


19.95 


19.00 


CONQUEST OF CHESTERWOO0 


SHOWDOWN 






T 16* 1 6 III 


IS 9* 


12.00 


32K 1 4 III 30.9.5 


16 00 


D33KI&III 


?■:■ 95 


16 00 


METEOR MISSION 






T I6K I* III ... 1V.9S 


1500 


T 16*16111 


11 95 


12,00 


S 32* 1 4 III . 


19.9S 


' 5 11 


♦DEMON VENTURE tl — 




+ SILVER FLASH-PINBALl 1 




T 16K 1 4 III 


15.95 


1200 


REIGN OF THE RED DRAGON 




D 32* 16 111 . 


19.95 


15.00 


ROBOT ATTACK 






D 32* 1 4 III .... 21 99 


19 00 


T 1SK I 4 III 


1496 


12.00 


D32K 1 4 III 


19 95 


15.00 


ELIMINATOR 




SKY WARRIOR 






T I6KI 4 III 


15.95 


12 00 


I D32KI4III .... 24.M 


1 1 00 


D32KI4III 


20 95 


I fj 00 


* STELLAR ESCORT 






T 16K 1 4 111 19 95 


15 M 


T 16* 1 & III . . 


14 95 


tl.DO 


D32KI 4 III . 


19.95 


tsoo 


GALACTIC EMPIRE 




SPACE INTHUOERS 






T 16* 14 III ... 


1594 


12.00 


T 18K 1 4 III 14 96 


12 00 


D32KI6IK . , 


20 95 


16 en 


SUPER NOVA 






GALACTIC REVOLUTION 




T 16* 1 6 til . 


' 9 9F. 


15^00 


32* 1 1 III 


39 96 


1500 


T 16K 1 4 Ill ... 14.95 


1200 


STAR FIGHTER 




T IfiK 1 4 III 


1S.96 


1200 


GALACTIC TRADER 




D 32* 1 4 III 


29.95 


23 00 

1900 


CarniDir 






T 16K 1 4 III u.SS 


32.00 


T I6K J 4 Itl 


24.95 


+ BOUNCEOIDS 
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STAR TREK 3 S 




D 32* 1 4 III 


19 96 


35 00 


32K 14 III . . 39.94 


30 00 


D 32K 14 ill ... .. 


18 95 


15 00 


T 16* 1 4 III 


15.95 


■ ? .:;: 


LUNAR LANDER 




T 16* 1 4 111 . . 


14 95 


' 1 00 


SCARFMAN 






D32KI&III . 2095 


15,00 


TREASURE QUEST 


D 32* 14 III 


IMS 


1 5 00 


T 1SK 1 S III .... 34.95 


11.00 


D 32K 1 6 113 


-Q 95 


16.00 




15 96 


12 00 


MACES 4 MAGIC 41 - BARLOG 




T 36* 14113 . 


34 65 


11.00 


SPACE CASTLE 






D 32* 3 29 H 


2300 








D 32* 1 6 III . . 


■ 'I 95 


1500 


MACES * MAGIC 42- 




Automated Simulation! ,'LPYXj 




T MR 1 4 III ... 


15.96 


12.00 


STONE OF SISYPHUS 




CRUSH, CRUMBLE 4 CHOMP 




Mid Syilimi 
ASYLUM 






32K 1 29.95 


23 00 


32* 14 III . . . 


.is ae 


23.00 






MACES 4 MAGIC H — 




T 16* 1 4 HI 


29 94 


23 00 


D 32* 1 4 III 


22.95 


16 00 


MORTON* FORK 




DUNJONQUEST- 






T 16KI 6 III 


19 95 


15.00 


D 3?K 1 . . . 29.95 


23 00 


HELLFIRE WARRIOR 






(■ ASYLUM II 






MISSILE ATTACK 




□ 32K 1 6 III 


39 95 


30 00 


P 32K 1 6 III 


12 95 


16 00 


D32KI 4 III . 2095 


1600 


' 1 '. r .; 1 . 


38 95 


30 00 


T 16* 14 III 


3886 


15.00 


T 16* 1 1 III .... H.9S 


13.00 


0UNJONOUEST- 






DEATH MAZE 5000 






OTHER VENTURE 42- 




KEYS OF ACHERON 






D 32* 1 6 Itl . . , , 


17.95 


1100 


CROWLEY MANOR 




O 32* 16 III . . 


19 95 


15.00 


T 18K I 4 III 


1199 


1300 


D32K 1 4 III i0 3i 


16,00 


T 16* 1 6 111 . . 


19.95 


15 00 


LABYRINTH 






TIE* It til . . ig.96 


35.00 


DUNJONOUEST- 






D 32* 1 4 111 


17.85 


34.00 


OTHER VENTURE 43- 




SORCERER OF SIVA 






T16KI4 III . . 


11.95 


3 3.00 


ESCAPE FROM TRAAM 




D32KI 4 J II 


29 95 


23.00 


WARRIOR OF RAS- 


DUNZHIN 




D 32* 14 III. 20.9$ 


18 00 


T I6K 1 1 III 


29.95 


23.00 


019*14 III 


2995 


23 00 


T 16K1 4 III ... 39.95 


15.00 


OUNJONQUEST- 






T 48* 1 4 III 


29.95 


23.00 


OTHER VENTURE 44 — 




TEMPLEOF APSHAI 






WARRIORS OF RAS- 


- *AIV 




EARTHQUAKE SF 1906 




32* 14 III 


39.95 


30.00 


O 46* 1 4 III 


29 95 


23.00 


D32KI4III 2095 


16.00 


T IMC 1 1 III . . 


3996 


30.00 


T18KI4 III 


29.85 


23 00 


T 36* 1 4 Ifl , . 16.96 


35.00 


DUNJONQUEST- 






WARRIORS OF HAS- 


- THE WYIOF 


OTHER VENTURE 45- 




UPPER REACHES OF APSHAI 




D 45* I 4 HI 


29.89 


J'.j r :i: 


♦ DEATH PLANET 




D32KI4NI 


16.96 


1500 


T18KI 4 III 


J'4 ;^. 


."". r:i; 


T16KISIII . . 19.96 


35.00 


T 16* 1 6 III 


1995 


35.00 


Malbdum* Houtl Soil**™ 




PLANETOIDS 




+ RICHOCHET 






PENETRATOfi 






U12KI4 III . 20 96 


16.00 


D12KI4IH .... 


19 95 


16.00 


DIM 14 111 


24 95 


;■ : mi 


T 36* 14 til 19 66 


ts.oo 


T 36* 1 * III 


19 96 


15.00 


T 16K 14 III ... 


21 95 


20 00 



Now Twice As Many Programs! 



EDUCATION 

Admncad Qparatlng 5ya1ama 
MOSTLY BASIC 
EDUCATIONAL PKG. 1 PRG 

T I6K I 4 III . . . 21 86 20.00 

MOSTLY SASIC 
SCIENTIFIC PKG. 7 PR3 

T 16* 1 1 III 24 86 20.00 

TIME DUNQEON- 
AMERICAN HISTORY 

T 18K I 4 III 2196 20.00 

TIME DUNGEON - 
WORLD HISTORY 

T 16K I 4 Ifl . . . 24.95 20 00 

Auiomatad Simulation! (EPY!C| 
JABBERTALKY 

32* I 4 III.. . 29 96 23 00 

Tl6*i6lll 29.96 23 00 



BUSINESS 

Small fluilntll Srllimi Cfoup 
ACCOUNTS PAYABLE 

DISK I 4 III 194.00 155.00 

ACCOUNTS RECEIVABLE 

D18KI4 1I1. . 184.00 155 00 
GENERAL LEDGER 

D 48K I 4 tit 195 00 156 00 

INVENTORY CONTROL 

DISK I 4 lit 196 00 t55 00 

PAYROLL 

DISK I lltl 186 00 156 00 



WORD PROCESSING 

Aipan Soft*a'a 

gpTammatik 

D 32* I .... . 49 00 16 00 

PROOF EDIT 

D32KI 3000 2300 

PROOFREADER 

32* I 54 00 12 00 

SOFT SCREEN 

D IS* I 69 00 51 .00 

SOFT-TEXT 

D 18K i 89.00 54 00 

Mlchaal Stlrayai Sollwara 
ELECTRIC PENCIL 

THMCI 300 00 24.00 

INFO. PROCESSING 

AdvinlLt't Inlarnallofial 
+ MA SI CRAS 

018* 16 Itl . . . 90 89 79 00 

MAX! MANAGER 

D 1SK 1 4 III 99 85 79.00 

* MAXI MANAGER UTILITY PACK (1 

DISK I llll ..... 49-95 38.00 

* MAX! STAT 

D 18* I 4 111 . . . . 199.86 112 0C 
Auk ■ 

* COMPUTER FILING SYSTEM ICFSl 

D32K141II 8900 55 00 

□ in Hanay Aaaoclalaa 

ELECTRIC SPREADSHEET! 

32*14 III 69 99 89 00 

T IMI 4111 . . 3495 3000 



OPERATING SYS. 

Micin Syatama Soltwara 
OOS PLUS V3 3S 
D32KI 100 00 50.00 

UTILITIES 

AduMturalnlamjiiynal 
* DIRECTORY INFO. MGT II (DIM III 



D32KI & III 2186 

Hnwa Soltwar* 
MDN3 

t 1BK I J995 

MON1 

D32KI 4946 

STERM 

T16KI 69.95 

SYSTEM DIAGNOSTIC 

D32KI 4 III . . . 9894 



19O0 



31.00 
39.00 

55.00 
79.00 

MISCELLANEOUS 



Advartfurt lnl«m«tlon*l 
HUNT SHEET for nifllt 
Ajvur |jn. ' -1 Ib|tU#12 



SqM*»p* AMfir 
ORCHESTRA-^ 

T 1flK I 

O 16KI 



NEW 



89 96 

99.95 



86 00 

95 0O 



PMC SOFTWARE 

475 Etlis St., Mt. View, CA 94043 

Orders: (415) 962-0318 Information: (415) 962-0220 
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ARRAY OF HOPE FOR BASIC PROGRAMMERS 

continued from page 18 

present in the array. The same definitions as for the 
sequential traversal will be assumed. The code for a binary 
tree search could be as follows: 

100 NXT = ROOT 

110 IF NXT <= PRINT "Key"; AR; "not found": GOTO 140 

120 IF A(NXT,KEY) < AR THEN NXT = A(NXT.LEFT) : GOTO 110 

ELSE IF A(NXT,KEY) > AR THEN NXT = A (NXT , RIGHT) : GOTO 110 
130 PRINT "Key"; AR; "found at location"; NXT 
140 etc. 

Again the loop could be reduced to a single line to the 
detriment of the legibility of the code. It can be done 
simply by appending line 120 to the end of line 110 with 
the word ELSE as separator. 

Depending on the shape of the tree the binary tree 
search can be as fast as the binary search or as slow as the 
sequential search. If the length of any branch belonging to 
a particular node differs from any other branch belonging 
to the same node by no more than one, then the tree is 
said to be balanced. For balanced trees the search time will 
be approximately the same as for the binary search. The 
other extreme is obtained if the tree only consists of a 
single branch with a length equal to the number of 
elements in the tree. This would correspond to a linear 
linked list, and the search time would be equivalent to the 
time for a sequential search. To avoid the worst case 
example the tree can be reorganized so that it will be 
balanced and faster search times will be obtained. The 
reorganization requires processing time, and corresponds 
to the sorting of an array. 

5.2.4 Direct Reference 

The fastest search method possible is obtained when the 
array can be built so that the key value directly corresponds 
to the subscript of the corresponding array element. The 
search is then a direct reference to the particular array 
element required. If not all elements are used, then a value 
must be stored in the array to indicate if the particular 
element is used or not. 

For example a company has about 200 employees, each 
of which is assigned a three digit number between 100 and 
999. An array could be built containing about 200 elements, 
but a more efficient search could be obtained by using an 
array of 900 elements, corresponding to the employee 
numbers from 100 to 999. To find the corresponding array 
element the value 100 would be subtracted from the 
number, yielding a subscript in the range of the array. The 
array perhaps contains the weekly wage for each employee, 
and this value could be set to -1 if the corresponding 
employee number was unused. Admittedly a great deal of 
memory space would be wasted, but if speed is of more 
importance then memory space then the method can be 
recommended. 

In the above example the array utilization is only about 
22%, but in many cases where normal arrays are used the 
percentage would be much larger. There is no reason to 
have large amounts of unused memory in the computer if it 
could be used to advantage to speed up array searches. 



The example showed an obvious key transformation, but in 
other cases the transformation may not be quite as 
obvious. The only requirement is that the transformation 
yields a unique subscript value within the range of the 
array, in other words two distinct key values may not yield 
the same subscript value. Many identification numbers are 
obtained by appending a check digit to the end of a value 
within a certain range. The employee number in the above 
example could have been a four digit number, with the last 
digit being a check digit. In this case the first three digits in 
each number are still unique, and if the check digit has 
been verified by other methods then the first three digits 
could still be used to obtain a direct subscript value. 

For very large arrays the method can be an order of 
magnitude faster than the binary search, besides having the 
advantage that the array does not have to be sorted 
beforehand. Thus if additions to the array or deletions are 
common, then the method becomes even faster compared 
to the binary search or the binary tree search. It is my 
impression that the technique is not used as often as it 
could be, despite the obvious advantages to be gained by 
using it, but perhaps as memory becomes cheaper and 
microcomputer addressing ranges expand the method will 
gain in acceptance. 

5.2.5 Hash Code Calculation 

A method of array organization which is closely related 
to the direct lookup is the hash code calculation. The 
difference is that in the direct lookup the key can be 
transformed to a unique subscript, whereas the hash code 
calculation will not yield a unique value. It can be used 
where the range of key values is large compared to the 
number of positions available in the array. It is used 
extensively in compilers for storing a table of names 
defined in the program. 

The calculation required to convert the key value to a 
subscript value will vary from one application to the next, 
but it should be chosen so that the subscript values are 
reasonably evenly spaced throughout the available range. A 
common method is taking the remainder after division by a 
value, often a prime number, corresponding to the number 
of elements in the array. To avoid having too many keys 
yielding the same subscript value the array should be 
defined with more elements than actually needed. No 
fixed rules can be given, but arrays with more than 70 to 
80% utilization will often give extended search times. 

When two different key values yield the same subscript 
in the hash code calculation, a clash results, and a method 
must be found to distinguish the two keys and to provide 
storage for both the key values. The key itself is stored in 
the array, so that the actual value can be checked with the 
desired value, resulting in more space being required than 
for the direct lookup where the key value does not have to 
be stored. To resolve clashes the key can be passed 
through a new transformation to yield a new subscript 
value, or a separate portion of the array can be reserved 
and searched sequentially to find those elements which 
have resulted in clashes. If many clashes are expected, 
then each element can contain a link pointing to the next 

continued on page 22 
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BeaLin Corp. offers you 




TRAX-SW 

RETAIN YOUR *TRS-80 BLOCK GRAPHICS CAPABILITY WHILE ADDING ALL OF THE 
FEATURES OF **GRAFTRAX-PLUS SUCH AS UNDERLINE MODE, SUBSCRIPT/ 
SUPERSCRIPT, LINE DRAWING GRAPHICS, ETC. PLUG IN BOARD SUPPLIED 
WITH OR WITHOUT **GRAFTRAX-PLUS. 

(Not available for serial MX-80 Printers.) 

TRAX-SW ($49.95) A W PAGE-IT 

TRAX-SW WITH GRAFTRAX-PLUS ($109.95) A W *onnE 

GRAFTRAX-PLUS ($69.95) M W VZWO 

GRAFTRAX80 ($65.00) A^W A disk utility that 

"!aSoK Co,p - XMr prints basic programs 

M^^im in easily readable 
PRINTER CABLE FOR EPSON PRINTERS JSHW format 

10 FEET ($24.95) J^SF * COMPATIBLE WITH 

TEAC DISK DRIVES 40TK/SS/DD . . ($250.00) JmSW c^?|L2 PERATING 

(one year warranty) M*&W IsYISltlvlis 

MWTmV • HIGHLIGHTS REM 

PRINTER SWITCH AS/ statements 

Mod I. Ill $79.95 Mod II. XVI $89.95 J£*W • INDENTS CODE - LINE 

Switch between two printers, use your computer to pro- M^^W NUMBERS STAND OUT 
duce draft copies on one printer. Then make final copies M^^m * UNPACKS BASIC CODE 
on letter quality printer without switching cables. _^\JF * MENU DRIVEN — EASY TO USE 

REAL WORLD INTERFACE M?»W • supports special options of 

The Card Electronics REAL WORLD INTER- Mm?W 15PRINTERS 

FACE system is for the control and monitoring A^^tW INVOICE PROGRAM $39.95 

of machines and real world systems (robotics, jAZ%W PURCHASE ORDER $39 95 

heating air-conditioning, lighting motors, A^f STATEMENT PROGRAM $39^5 

solenoids, etc.). With the use of A.C. and A^^W* /r>1 ,», A 1 1 o i-/-vi-» *nn nn\ 

D.C. Solid State Relays and status indi- JKW (BUY ALL 3 FOR $99.95) 

eating devices, this system will permit Af^W uses Nebss universal form 9050-1 thru 5 

tdc on 4. xxl • W*CW Requires ***NEWDOS 80 2.0 

TRS-80 users tO connect their com- A^^W "'Trademark ofApparatlnc. 

f'lRs'Sr 31 WOr,d f' R FAi AS* CHECK80 $49.95 

Serial RS-232 version of REAL ^k mm »> . 

WORLD INTERFACE ideal for AW ^ se " our com P uter to produce invoices, purchase orders, state- 
remote control and monitoring Am ^F ments, and print checks with check record maintained on disk. 

through modems. AW i]WOICF.PL US *69 95 

24 Outputs,32 Inputs. -v A W ^VUlCC-rLU3 *OWO 

a Am W Print invoices and store all transactions on disk. 

A Am mj 

A s AW USE OUR DATA LINE TO BROWSE THROUGH THE MANY ITEMS WE 
\S AW ha VE AVAILABLE. YOU MAY PLACE ORDERS OR HAVE SPECIFIC QUES- 
<£" M W TIONS ANSWERED. DATA LINE FORMAT IS 300 BAUD, 7 BIT, NO PARITY. 
* AW SATISFY ALL OF YOUR COMPUTING NEEDS, COMPLETE SYSTEMS, DISK 
^s° AW DRIVES, PRINTERS, EPSON RIBBONS & REPACKS, PAPER PRODUCTS, PLUS 
-0 A W MUCH MORE. CALL OR WRITE FOR FREE CATALOG. 
y(y Am ^r Software shipping and handling — $3.50 
^ AM W PHONE VOICE (301) 490-2477 MODEM (301) 730-2229 

.■&* A 

^ Am W TRS-80 /^m 
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ARRAY OF HOPE FOR BASIC PROGRAMMERS 

continued from page 20 

element with the same hash code value. 

In order to use hash code calculations the key need not 
be a numeric value, string values can be converted to a 
numeric value by performing a transformation on the ASCII 
values of each or some of the characters in the string. The 
length of the string can also be used in the calculation. The 
TRSDOS operating system contains several examples of 
hash code calculations. One of them is used to transform 
the file name of disk files to a one-byte value stored in one 
of the disk directory sectors known appropriately as the 
Hash code Index Table (or HIT) sector. The value is used 
to speed up the directory search for a particular file. If the 
calculated hash code is not found in the HIT sector then 
the file does not exist on that diskette, if it is found then 
the corresponding sector in the File Directory Entry (or 
FDE) sectors can be read directly. If several files on the 
diskette yield the same hash code then the HIT sector and 
FDE sector reads will have to be repeated until the 
appropriate file is found. The file name itself is stored in 
the FDE sector so that the value can be verified since 
clashes are not uncommon. 

Another example of hash code calculation, which in this 
case is not used for table lookup, is the conversion of the 
file passwords to two-byte integer values stored in the 
directory. Since two bytes can contain 65536 distinct 
values the probability of a clash is much lower than for the 
HIT codes which can only contain 256 distinct values. 

For the HIT codes the ASCII values of each byte of the 
file name is used. A sequence of Exclusive OR and rotate 
commands are used, a sequence which would be difficult 
to reconstruct in Basic. However a similar sequence can be 
used, but instead of rotating the value it can be multiplied 
by two before the next ASCII value is added, and if a 
certain value is exceeded it is subtracted from the calculated 
value to avoid overflow. Also the length of the string can be 
used as the start value for the hash code. The following 
code can be used to yield a value between and 1023 for 
a string A$ of any length. 



100 HC = LEN(A$): IF HC = THEN 150 

110 FOR 1=1 TO LEN(A$) 

120 HC = HC + HC + ASC ( MID$ (A$, I, 



D) 



130 IF HC > 1023 THEN HC = HC - 1024: GOTO 130 
140 NEXT I 
150 etc. 

Any value other than 1023 could Obviously have been 
chosen to yield a hash code value within any desired range. 
Note that the value of HC in line 130 can be larger than 
1023*2 so that 1023 may have to be subtracted more than 
once. For short arrays the above calculation requires more 
time than a sequential search, but for large arrays, especially 
dynamic arrays where the time required for inserting a new 
element in sorted sequence may be longer than the search 
time, the calculation time will be insignificant. 

In the following example the elements with clashing 
hash code values are placed in a separate potion of the 
array, and either searched sequentially or through a linked 
list from the main part of the array. The array will consist of 



two dimensions with 1200 rows and two or three columns. 
The columns will contain the key, the data portion, and 
optionally a pointer to the overflow portion of the array. 
The largest calculated hash code will be 1023, so the 
elements from 1024 to 1199 will be used for overflow due 
to hash code clashes. The array has been initialized so that 
unused elements contain a key value of -1, and for the 
linked version, the unused links will also contain the value 
-1. 

Since the overflow portion of the array can only contain 
a limited number of elements it may also overflow. If and 
when this occurs the hash code calculation and the array 
size should be revised to reduce the number of clashes. 
The search part of the routine can be coded as follows, 
first for the unlinked version: 

10 HM = 1024: SM = 1200: REM Hash code and subscript 
maximum values + 1 

100 IF A(HC, KEY) = AR 

PRINT "Key"; AR; "found at location"; HC: 
GOTO 160: REM Found at hash code position 
110 IF A(HC, KEY) = -1 THEN 150: REM Key not found 
120 HC = HM 
130 IF A(HC, KEY) = AR 

PRINT "Key"; AR; "found in overflow location"; HC: 
GOTO 160: REM Found in overflow portion 
140 IF A(HC, KEY) >= THEN HC=HC+1: IF HC < SM THEN 130 
150 PRINT "Key"; AR; "not found" 
160 etc. 

Note that if the required key is found at the expected 
position then only a single comparison is required. Thus if 
there are no clashes only a single comparison is required, 
irrespective of whether the value is found in the array or 
not. Thus for speed the hash code calculation method can 
compare with the direct lookup. If clashes do result then 
the calculation of the average number of comparisons is 
complicated, but it can be done if the number of clashes is 
known, together with the number of elements present in 
the overflow portion of the array. 

The routine when a link is used is very similar to the 
above, but the number of comparisons will be reduced if a 
relatively large number of elements are present in the 
overflow portion. 
100 IF A(HC, KEY) = AR 

PRINT "Key"; AR; "found at location"; HC: 
GOTO 130: REM Found at expected location 
110 HC = A(HC, LINK): IF HC >= THEN 100: 

REM Check at link location 
120 PRINT "Key"; AR; "not found" 
130 etc. 

As can be seen the code for this case is simpler than 
that for the unlinked version, and the loop portion of the 
code could easily be written as a single line to improve the 
efficiency slightly. The average number of comparisons is 
again dependent on the number of clashes, and the 
number of elements in each link, but it should be very 
close to one except for very exceptional cases. The 
disadvantage compared to the unlinked version is, of 
course, the extra memory required to contain the links in 
the array. 

continued on page 39 
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Hardware Spool! 

CUE is a communications processor which 
rapidly accepts from your computer data to be 

printed and then goes off-line to drive the printer 

— independent of your computer, which is now 

free. CUE is better than software spooling since 

none of your computer's memory, processing 

power, or disk drives are tied up. CUE is available 

in parallel, serial, or with both in 2- and 4-port 

models (connect several printers or computers) 

with from 16K to 32 K memory. Use as an interface 

^■^ Prices begin at $299. 

=_= MicroCompahble (404) 447 . 4805 

3810 Oakcliff Industrial Court, Doraville, GA 30340 



COLOR COMPUTER CORNER 

Joseph Rosenman 
This Month: 6809 Assembly Language and Galax Attack 



How does the Color Computer do it? We all know that 
there is a microprocessor inside the Color Computer, 
known as the 6809. The 6809 processor is part of a family 
of microprocessor, manufactured by Motorola. The first in 
this family is the 6800 (used in the PET computer). The 
6809 is an advanced version of the 6800 (they are both 8 
bit CPUs). The newest in the family is the 68000 (used in 
the Radio Shack Mode! 16). The 68000 is a 16 bit 
processor, and is an extremely powerful processor. 

OK, the Color Computer uses a 6809 processor. How 
can we learn about it? We can begin with a book on the 
subject. This month, I will review a book on 6809 
Assembly Language. Next month, I will review the Radio 
Shack Color Computer EDTASM program. Assembly Lan- 
guage/Machine Language is the only way to really understand 
the inner workings of any computer. Many of the readers of 
the Color Computer column know of the Assembly Language 
for Beginners column that I have been writing in Compu- 
tronics. The first four issues contain a great deal of 
information useful in learning any Assembly Language (the 
column is focused on the Z-80 microprocessor used in the 
Radio Shack Models 1, 2, and 3). If you have a serious 
desire to learn about assembly language, you might want to 
review these issues. These issues deal with concepts 
relevant to any assembly language. 

6809 Assembly Language Programming 

by Lance Leventhal 
Osborne/McGraw Hi!!, 1981 

There have been several books on different microcom- 
puter assembly language programs published by Osborne, 
all with a reputation for thoroughness and accuracy. The 
6809 assembly language book continues their tradition. 
This large paperback book include 22 chapters detailing 
the history and use of the 6809. Appendices detail the 
machine code. 6800 compatability and differences are 
described. Of course, numerous examples of the use of the 
machine instructions are provided throughout the book. 

All Osborne books use a double intensity print system to 
aid readers. Important or main points are "highlighted" 
darker), so that the reader could skim through the book 
and pick out the main details. The normal print contains 
the explanations and examples. This system permits a rapid 
review of material. My impression of this book is that it is 
of the usual high standards I have come to expect from 
Osborne. Who is the book targeted for? Not the absolute 
beginner. Although the book begins with introductory 
material, I would not recommend it to the novice. If you 
have some experience in assembly language (that is, if you 
know something about hexadecimal math or have started 
to learn another assembly language), this book should 
prove excellent. As far as the highly trained are concerned, 
the book is useful. Having worked on several assembly 



languages in the past, I found that this book required a lot 
of reading to get to the facts. I would have preferred an 
approach that included a description of the processor 
architecture, followed by a table of assembler mnemonics 
and functions. I must stress, though, that most readers will 
find the book's detail to be a tremendous asset. If you 
intend to work with an 6809 assembler, I highly recommend 
this book. 

GALAX ATTACK 

from: Spectral Associates 
141 Harvard Ave. 
Tacoma, WA 98466 
206-565-4607 

System requirements: 16K or 32K system (non-extended 

Basic). 

Supplied on: Cassette tape. Joysticks required. 

Disk compatible: Yes. 

Price: $21.95 

Spectral Associates has come out with another high qual- 
ity arcade game. Galax Attack is another variant of the le- 
gendary "Space Invaders." In this game, there are three dif- 
ferent ship types. Points gained from a hit are doubled if 
the alien ship was attacking when fired upon. The graphics are 
interesting and appropriate. The game maintains a fast 
pace, and has suitable sound effects. Your ship is controlled 
by the right joystick (missiles are fired by depressing the 
joystick button). 

Problems? Just two. I find that the joystick is not very 
responsive. In addition, the missiles dropped by the alien 
ships are not very distinctive (they resemble the background 
stars). I suppose one could say that the missiles are 
"camouflaged." In any case, with the exception of these 
two deficiencies, the game is quite good. Needless to say, 
the game is in machine language and uses high resolution 
graphics. 

Have you noticed the amount of Color Computer 
software around? I am happy to say that it has increased 
dramatically. Radio Shack has continued a slow but steady 
increase in Color Computer software. Far more important, 
however, is the increase in independent software and 
hardware sources. When I think back to the software 
available just one year ago, I find the changes quite 
satisfying. Now, a Color Computer user has a large choice 
of software. What about the Color Computer itself? Radio 
Shack has offered virtually no additions to the Color 
Computer. There is still a limit on the maximum memory 
size (32K). Mass storage is, well, not very mass (by today's 
standards, the Color Computer Floppy Disk is small pota- 
toes). Radio Shack made its usual unfortunate choice with 
the Color Computer lower case. There are several lower 

continued on page 39 
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PONY EXPRESS 

Finally 

The most complete mailing program 

ever designed, used for many years 

by large corporations and organizations 



***************************** 

HH9^MHHPpNpMiHMHHHK| 
* I »X t Jm d ■iTiTI »J h tim»^m 

■■■■■■■■■■■■MlM 
■ •/ilKi m'k'iZlmm mldlilvim mIM * 



Now Available for the Trs BO* 
Models I and III 



Following are some of the features of 

PONY EXPRESS 

• Unlimited amount of files 

• 1400 records on a Model III 40 track 
diskette 

• Fast machine code sort 

• Records can be sorted by name, zip code, 
zip and name, zip and address 

• Records can be printed on 
labels one to five across 
132 character wide paper 
80 character wide paper 
or with Cheshire format 

• Print your own return address labels or 
any other one to five line message 

• Records can be selected by an unlimited 
amount of selection codes. 

• Automatic repeat routines for ease of 
entering records 

• Codes can be used instead of titles for 
greater efficiency during input 

• Unique correction and deletion routines 
for ease of updating files 

• Self-documenting and extensive docu- 
mentation so that anyone can learn how 
to use PONY EXPRESS in less than an 
hour 



Special Introductory Offer 

$99.00 

Call or Write to 

mmmmi 

975 Forest Avenue 

Lakewood, New Jersey 08701 

(201)364-3005 

Master Charge and Visa accepted, 

add $2.50 Shipping and Handling. 

N-.J. residents add 5% sales tax. 

'Trs 80 Is a trademark of Tandy Corp. 
*********************** 
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NEW I NOT REFURBISHED 

LETTER QUALITY PRINTER AND TYPEWRITER 
IN ONE PACKAGE 

ONLY 

$795 

plus shipping 

The BYTEWRITER is a new Olivetti Praxis electronic typewriter 

with a micro-processor controlled driver added internally. 

No software driver needed. 

Maybe we goofed by not charging more for a 
DAISY WHEEL PRINTER 

What's wrong with it? 

We guess everyone must be getting used to 
paying over $2000 for a new Daisy Wheel Printer 
and over $1500 for a refurbished Daisy Wheel 
Printer. Anything that costs less must be junk. 
Right? 

WRONG! 

The BYTEWRITER is not only cheaper it is better! 



Following are some of the features of 

BYTEWRITER 

10, 12, or 15 characters per inch switch 
selectable 

Interchangeable daisy wheel - many differ- 
ent typestyles readily available 
Correctable Electronic Typewriter opera- 
tion with nothing to disconnect 
Correctable film or nylon cartridge ribbon 
Self test program built in 
Only 14 internal moving parts for incredible 
reliability, ease, efficiency and accuracy 
Two keyboard positions for standard Amer- 
ican type or special characters for foreign 
languages 



* Centronics compatible parallel input operates with 

* TRS-80, APPLE, IBM and many others 

* Call or Write to 

* 
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* 
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975 Forest Avenue 

Lakewood, New Jersey 08701 

(201)364-3005 

Master Charge and Visa accepted, 
N.J. residents add 5% sales tax. 

******************»*»»»» 
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CQMPUTRQNICS 



N 



• • • EVERYTHING FOR YOUR TRS-80 • • • 
MODEL I, MODEL II & MODEL III 



' TRS-80" is a trademark of Tandy Corp. 



FROM 



^-RACET 



COMPUTES lTT! 



• All orders processed within 24 Hours 
• 30-Day money back guarantee 
• Add $3.00 for shipping in UPS Areas 
• Add $4.00 for C.O.D. or NON-UPS Areas 
• Add $5.00 to Canada or Mexico 
• Add exact postage to all other countries 



*** ESSENTIAL UTILITY PROGRAMS FOR EVERY TRS-80 OWNER *** 



Focfo Aluwl flood Computet UWIUij PtiMjtwiw 



•••ALL PROGRAMS ARE WRITTEN IN MACHINE LANGUAGE 

••• ABSOLUTELY NO KNOWLEDGE OF MACHINE LANGUAGE IS NECESSARY TO USE ANY OF THE UTILITY PROGRAMS 

"• EACH UTILITY PROGRAM IS CALLED UP FROM BASIC USING THE SIMPLE BASIC COMMANDS PROVIDED 

•" EACH UTILITY PROGRAM COMES WITH A RACET COMPUTES INSTRUCTION MANUAL 

••• EACH INSTRUCTION MANUAL INCLUDES SEVERAL EXAMPLES OF UTILITY USAGE 

"• EACH UTILITY ALLOWS THE USER TO PERFORM CERTAIN BASIC OPERATIONS TEN, TWENTY OR MORE TIMES FASTER THAN THE 

EQUIVALENT BASIC ROUTINE (FOR EXAMPLE, GSF CAN SORT AN ARRAY OF 1000 RANDOM NAMES INTO ALPHABETICAL ORDER IN 

UNDER 9 SECONDS!!) 



GSF (GENERALIZED SUBROUTINE FACILITY) 

• SORTS 1000-ELEMENT ARRAYS IN 9 SECONDS 

• SORTS UP TO 15 ARRAYS SIMULTANEOUSLY (MIXED STRING, FLOATING POINT AND 
INTEGER) 

• SORTS SINGLE OR MULTIPLE SUBSTRINGS AS ASCENDING OR DESCENDING SORT 
KEYS 

• READ AND WRITE ARRAYS TO CASSETTE 

• COMPRESS AND UNCOMPRESS DATA IN MEMORY 

• MOVE ARRAYS IN MEMORY 

• DUPLICATE MEMORY 

• FAST HORIZONTAL AND VERTICAL LINES 

• SCREEN CONTROLS FOR SCROLLING THESCREEN UP, DOWN, LEFT, RIGHT AND FOR 
GENERATING INVERSE GRAPHIC DISPLAYS 

• ADDS PEEKS AND POKES (MOD-II VERSION ONLY) 



MODEL-I VERSION $25 00 

MODEL-II VERSION . $50 00 

MODEL-III VERSION . $30 00 



KFS-80 (KEYED FILE SYSTEM) 

• CREATE ISAM FILES (INDEX SEQUENTIAL ACCESS METHOD) 

• ALLOWS INSTANT ACCESS TO ANY RECORD ON YOUR DISKETTE 

• INSTANTLY RETRIEVF RECORDS FROM MAILING LISTS, INVENTORY, ACCOUNTS 
RECEIVABLE OR VIRTUALLY ANY APPLICATION WHERE RAPID ACCESS IS RE- 
QUIRED TO NAMED RECORDS 

• PROVIDES THE BASIC PROGRAMMER THE ABILITY TO RAPIDLY INSERT OR ACCESS 
KEYED RECORDS IN ONE OR MORE DATA FILES 

• RECORDS ARE MAINTAINED IN SORTED ORDER BY A SPECIFIED KEY 

• RECORDS MAY BE INSERTED OR RETRIEVED BY SUPPLYING THE KEY 

• RECORDS MAY BE RETRIEVED SEQUENTIALLY IN SORTED ORDER 

• RAPID ACCESS TO ANY FILE REGARDLESS OF THE NUMBER OF RECORDS 

• MULTIPLE INDEX FILES CAN BE EASILY CREATED WHICH ALLOWS ACCESS OF A 
SINGLE DATABASE BY MULTIPLE KEYS (FOR EXAMPLE, BY BOTH NAME AND ZIP- 
CODE) 

MODEL-I VERSION $100.00 

MODEL-II VERSION $175.00 

MODEL-III VERSION $100.00 



DSM (DISKSORT MERGE) 

• SORT AN 85K DISKETTE IN LESS THAN THREE MINUTES 1 

• SORTS LARGE MULTIPLE DISKETTE FILES ON A MINIMUM ONE DRIVE SYSTEM 

• ALL RECORDS ARE PHYSICALLY REARRANGED-NO KEY FILES ARE REQUIRED 

• SORTS RANDOM FILES CREATED BY BASIC, INCLUDING FILES CONTAINING SUB- 
RECORDS SPANNING SECTORS 

• SORTS ON ONE OR MORE FIELDS IN ASCENDING OR DESCENDING ORDER 

• FIELDS MAY BE STIRNGS, INTEGER, BINARY INTEGER OR FLOATING POINT 

• THE SORTEDOUTPUT FILE MAYOPTIONALLYHAVE FIELDS DELETED, REARRANGED 
OR PADDED 

• SORT COMMANDS CAN BE SAVED FOR REUSE 

• SINGLE SORT, MERGE, OR MIXED SORT/MERGE OPERATIONS MAY BE PERFORMED 

• SORTED OUTPUT MAY BE WRITTEN TO A NEW FILE, OR REPLACE THE ORIGINAL IN- 
PUT FILE. 



MODEL-I VERSION $75.00 

MODEL-II VERSION $150.00 

MODEL-III VERSION $90.00 



MAILLIST (A MAILING LIST DATABASE SYSTEM) 

• IDEALLY SUITED FOR ORGANIZATION MAILING LISTS, PERSONAL ADDRESSBOOK, 
OR MAILING LISTS BASED ON DATES SUCH AS REMINDERS FOR BIRTHDATES OR 
DUES PAYABLE 

• USED ISAMjINDEX SEQUENTIAL ACCESS METHOD) FOR RAPID ACCESS TIMES 

• YOUR MAILLIST CAN ALWAYS BE SORTED AND MAINTAINED BY UP TO FOUR INDEX 
FILES (FOR EXAMPLE, NAME, ZIPCODE, DATE AND NUMBER) 

• MAILLIST ALLOWS UP TO 30 ATTRIBUTES TO BE SPECIFIED (TO BE USED IN SEL- 
ECTION OF SPECIFIED RECORDS WHEN GENERATING REPORTS OR MAILING 
LABELS 

• MAILLIST SUPPORTS BOTH 5 OR 9-DIGIT ZIPCODES 

• PRINTING MAY BE STARTED OR ENDED AT ANY POINT IN THE LIST. THE USER CAN 
SPECIFY FIELDS OR CODES TO BE PRINTED 

• CAPACITY IS 600 NAMES FOR MODEL-I, 3500NAMES FOR MODEL II, 38.000NAMES FOR 
MODEL II WITH HARD DISK DRIVE 1200 NAMES FOR MODEL III 

MODEL-I VERSION $75.00 

MODEL-II VERSION $150.00 

MODEL-III VERSION $75.00 



HSDS HARD DISK DRIVE SOFTWARE 

• MAKES TRSDOS COMPATIBLE WITH MOST HARD DISK DRIVES. 

• ADDS MANY EXTRA FEATURES TO TRSDOS $400 00 



COMPROC (COMMAND PROCESSOR) 

• AUTO YOUR DISK TO PERFORM ANY SEQUENCE OF INSTRUCTIONS THAT YOU 
NORMALLY GIVE FROM THE KEYBOARD (FOR EXAMPLE, INSERT THE DISKETTE, 
PRESS THE RESET BUTTON, YOUR COMMAND FILE COULD AUTOMATICALLY SHOW 
YOU THE DIRECTORY, SHOW THE FREE SPACE ON THE DIKSETTE, LOAD A MA- 
CHINE LANGUAGE SUBROUTINE, LOAD BASIC, LOAD AND RUN A BASIC PROGRAM, 
AND SELECT A GIVEN ITEM ON YOUR MENU-ALL WITHOUT TOUCHING THE KEY- 
BOARD!) 

MODEL-I VERSION $20.00 

MODEL-III VERSION $30.00 

NOT AVAILABLE FOR MODEL-II 



DISCAT (DISKETTE CATALOG SYSTEM) 

• THIS COMPREHENSIVE DISKETTE CATALOGUING/INDEXING UTILITY ALLOWS THE 
USER TO KEEP TRACK OF THOUSANDS OF PROGRAMS IN A CATEGORIZED LI- 
BRARY. ..FILE INCLUDES PROGRAM NAMES AND EXTENSIONS, PROGRAM LENGTH, 
DISKETTE NUMBERS AND FREE SPACE ON EACH DISKETTE. ..KEEP A COMPLETE 
CATALOG OF THE DIRECTORIES ON ALL YOUR DISKETTES IN ALPHABETICAL 
ORDER (SORTED ON EACH DISKETTE. ..OR COMPLETE ALPHABETICAL LIST OF 
PROGRAMS ON ALL YOUffl DISKETTES) 

MODEL-I VERSION $50.00 

MODEL-III VERSION $50.00 

MODEL-II VERSION (SEE MODEL-II UTILITY PACKAGE) 



BLINK (BASIC LINK FACILITY) 

• LINK FROM BASIC PROGRAM TO ANOTHER SAVING ALL VARIABLES 

• THE CHAINED PROGRAM MAY EITHER REPLACE THE ORIGINAL PROGRAM OR CAN 
BE MERGED BY STATEMENT NUMBER 

MODEL-I VERSION $25.00 

MODEL-III VERSION $30.00 

MODEL-II VERSION (SEE MODEL-II UTILITY PACKAGE) $50.00 



INFINITE BASIC 

• ADDS OVER 80 COMMANDS TO BASIC 

• SORTING...STRING CENTERING/ROTATION/TRUNCATION . JUSTIFICATION. ..DATA 
COMPRESSION. ..STRING TRANSLATION/COPYING. ..SCREEN DISPLAY. SCROLL- 
ING. MATRIX OPERATIONS. SIMULTANEOUS EQUATIONS (THROUGH MATRIX 
INVERSION). ..DYNAMIC ARRAY RESHAPING 

MODEL-I VERSION $50.00 

MODEL-III VERSION $60.00 

NOT AVAILABLE ON MODEL-II 



INFINITE BUSINESS 



• ADD ON PACKAGE TO INFINITE BASIC (REQUIRES INFINITE BASIC) 

• ADDS PACKED DECIMAL ARITHMETIC WITH 127 DIGIT ACCURACY ( + ,0,'./) 

• COMPLETE PRINTER PAGINATION CONTROLS. AUTO HEADERS. FOOTERS AND 
PAGE NUMBERS 

• BINARY SEARCH OF SORTED AND UNSORTED ARRAYS (INSTANT SEARCH OF AN 
ELEMENT WITHIN AN ARRAY) 

• HASH CODES 

MODEL-I VERSION $30.00 

MODEL-III VERSION $30.00 

NOT AVAILABLE ON MODEL-II 



REMODEL-PROLOAD 



• THE ULTIMATE RENUMBERING PROGRAM ...RENUMBERS ALL OR PART OF A PRO- 
GRAM (ALLOWS PARTIAL RENUMBERING IN MIDDLE OF PROGRAMS) 

• PARTIAL OR COMPLETE MERGE OF TWO CASSETTE PROGRAMS 

MODEL-I VERSION $35.00 

MODEL-III VERSION $35.00 

NOT AVAILABLE ON MODEL-II 



COPSYS 



• COPY AND VERIFY ALL MACHINE LANGUAGE (SYSTEM) TAPES WRITTEN IN STAND- 
ARD FORMAT. IF YOU BUY A MACHINE LANGUAGE PROGRAM, COPSYS ALLOWS 
YOU TO EASILY COPY THE PROGRAM ONTO ANOTHER CASSETTE AS A BACKUP 

MODEL-I VERSION $15.00 

MODEL-III VERSION $20.00 

NOT AVAILABLE ON MODEL-II 



OR DEALER 
NFORMATION CALL: 



|r RACET computes -^ 



1330 N. GLASSEL, SUITE M, ORANGE CA 92667 
(714) 997-4950 



MODEL II SPEEDUP— FAST DISK I/O 

THIS IS AN ENHANCEMENT FOR TRSDOS 2.0 THAT WILL 
RADICALLY DECREASE DISK ACCESS TIME. 



• DISKS BOOT FASTER TO DOS 

• IMPROVE DISK I/O UNDER BASIC 



MODEL II ONLY $99.95 



m It 



MODEL II FASTBACK — FULL DISK BACKUP 
IN 55 SECONDS 

IN BUSINESS TIME IS MONEY, AND ONE BACKUP IS WORTH A THOUSAND TEARS. 

• WORKS ON SYSTEMS WITH 2 OR MORE DRIVES 

• CAN REPLACE YOUR EXISTING TRSDOS 1.2 or 2.0 BACKUP UTILITY 



MODEL II ONLY $75.00 






MODEL-II UTILITY PACKAGE 



' ESSENTIAL FOR EVERY MOD-II OWNER 

i RECOVER AND REPAIR FILES AND DIRECTORIES (BY JUST ENTERING A SINGLE 
COMMAND) 

' XCOPY. ..SIMILAR TO COPY BUT CAN COPY ANY NUMBER OF FILES AT ONE TIME 
FASTER AND MORE ACCURATE THAN COPY SINCE RECORDS ARE COPIED IN 
GROUPS RATHER THAN ONE RECORDS AT A TIME. USING XCOPY YOU CAN COPY 
FILES THAT CAN NOT BE COPIED USING THE COPY COMMAND 
SZAP... PROVIDES THE CAPABILITY TO READ AND MODIFY ANY SECTOR ON A 
DISKETTE 

XHIT...CAN BE USED TO REPAIR A DISKETTE DIRECTORY 

DCS. DIRECTOR CATALOG SYSTEM lo A UTILITY FOR THE MANAGEMENT OFUSER 
DISKETTES. SETS OF A MULTIPLE DISKETTE DIRECTORY FILE (WITH UP TO 1200 
INDIVIDUAL FILE NAMES). ..ALLOWS SELECTIVELY LISTED OR PRINTED LISTS OF 
DIRECTORY FILES IN COMBINED SORTED ORDER (FOR EXAMPLE, LISTED ALPHA- 
BETICALLY BY DISKETTE ...OR A COMPOSITE ALPHABETICAL LIST OF ALL YOUR 
DISKETTES!) 

DEBUG-II...ADDS SEVERAL FEATURES TO THE PRESENT TRSDOS DEBUG UTILITY 
INCLUDING SINGLE INSTRUCTION CYCLE, AUTO (LOOP) BREAKPOINTS, SUB- 
ROUTINE CALLING, BREAK-KEY DETECTION AND MANY OTHERS 



MODEL-II ONLY $150.00 



MODEL-II DEVELOPMENT SYSTEM 

• THIS PACKAGE IS A MUST FOR ASSEMBLY LANGUAGE PROGRAMMERS 

• INCLUDES THE MICROSOFT EDITOR ASSEMBLER PLUS WITH ENHANCEMENTS FOR 
THE MODEL-II 

• A COMPLETE DISASSEMBLER 

• SUPERZAP FOR READING AND MODIFY ANY SELECTOR ON A DISKETTE 

MODEL-II ONLY $125.00 



MOD-II BASIC CROSS REFERENCE UTILITY 

• LIST OR PRINT A SORTED CROSS REFERENCE TO ALL NUMBERS OR VARIABLES 
WITHIN A PROGRAM 

• LIST OF PRINT ALL LINE NUMBERS CONTAINING A SPECIFIED STRING OF CHAR- 
ACTERS 

MODEL-II ONLY $50.00 



*** ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE *** 



END USERS 
CALL: 



•CQiriPLJTRQMCS: 



>^AATv^j%AA T r-OL a**** 



50 N. PASCACK ROAD 
• SPRING VALLEY, NEW YORK 10977 




HOUR 
24 ORDER 
LINE 

(914) 425-1535 



DEALER INQUIRIES WELCOME 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY STATE) 

(800) 431-2818 



ADD $3.00 FOR SHIPPING IN UPS AREAS 
ADD $4.00 FOR C.O.D. OR NON-UPS AREAS 
ADD $5.00 TO CANADA AND MEXICO 
ADD PROPER POSTAGE OUTSIDE OF U.S., 
CANADA AND MEXICO 



PRACTICAL BUSINESS PROGRAMS 

Steven M. Zimmerman, Ph.D. and Leo M. Conrad 

THE GRAPHICAL METHOD OF LINEAR PROGRAMMING 

FOR SOLVING SIMPLE BUSINESS PROBLEMS 



Copyright® Zimmerman and Conrad 1982 



The Graphical method of linear programming is both a 
solution procedure for simple problems and a demonstration 
method to aid in the understanding of this type of 
problem. This program draws both line and area graphs 
associated with two dimensional problems. An adaption of 
the Simplex method, published in the September 1982 
issue of this magazine, is then used to produce an 
analytical solution to the program. 

The graphical method of linear programming allows the 
business person to make a decision concerning two variables. 
These variables may be relative to any decision the 
business person must make. For example, the number of 
first class salespersons versus the number of trainees to be 
assigned to a particular office, or the amount of a given 
product to stock versus the amount of a second product to 
stock in a retail store, or the dollars to budget for one 
research project versus a second project. 

If you have a problem involving more than two decisions, 
then the Simplex method must be used. The reason the 
graphical method is limited to two decisions is that we can 
only plot in two dimensions. The graphical method is 
primarly a visualization method and secondly a solution 
procedure. 

A Sample Problem 

Assume you are the owner operator of the local Com- 
puter For Sale Store. You must decide the number of IBM 
Personal Computers and the number of Apple II computers 
you will stock. You know the contribution margin (differ- 
ence between the selling price and the purchase price per 
unit) on the IBM PC is $1500 for a typical unit sold, while 
the contribution margin for the Apple II is $1600. 

You are limited by the display and storage space you 
have available to stock only ten computers. In other words, 
the number of IBM computers stocked plus the number of 
Apple computer stocked must be less than or equal to ten. 

In addition, you have a budget problem. Your combined 
credit and cash allows you to stock up to $12,000 worth of 
goods as measured by their purchase price. The cost of a 
typical IBM unit is $3,000 while the price of a typical 
Apple II computer is $2,500. 

You are working under one more constraint: that you 
must stock a minimum of three IBM computers in order to 
keep the franchise. You assume that you will be able to sell 
all of the units you must stock in a given time period. 

Setting up Our problem 
in terms of Equations 

The objective of the problem is to maximize the sum of 
the contribution margins. We write the following equation: 



Contribution times IBM's 
Margin 

$1,500 I + $1,600 A 



Contribution tiies Apples 
Margin 



This equation is called the objective function. 

The constraints are first stated in words and then as 
equations: 

Number of IBM's plus Number of Apples less than or 
equal to room 

I + A <= 10 

Cost times IBM's Plus cost times Apples is less than or 
equal to budget. 

$3,000 * I + $2,500 * A <= $12,000 

The last constraint is that you must stock at least three 
IBM PC's: 

1 * I + * A >= 3 

Using the Program 

The program may solve both maximization problems, 
like the example, and minimization problems. In the case 
of maximization problems, all constraints must be less than 
or equal to, and in the case of minimization, all constraints 
must be greater than or equal to. In our sample problem all 
constraints fit the pattern except the last one. 

In order to make the last constraint relative to stocking a 
minimum number of IBM PC's, we multiply both sides of 
the equation by -1 to turn the sign around. The constraints 
now look like the following: 



-3 I 



-3 



The equation looks strange, but it will work, and that is 
what counts. 

We are now ready to run the program. The first thing 
seen on the screen is: 

GRAPHICAL METHOD OF LINEAR PROGRAMMING 

DEVELOPED BY: 

STEVEN M. ZIMMERMAN, PH.D. 

LEO M. CONRAD 1982 

OBJECTIVE FUNCTION A * XI + B * X2 ...INPUT A & B? 

XI is used for the first variable, in our case the number 
of Apple II computers, and X2 is used for the second 
variable, the number of IBM PC's. The value of A is the 
contribution margin for IBM computers, $1,500, and the 
value for B is $1,600 the contribution margin for Apple 

continued on page 30 
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MULTIDOS 



Model III 

Now Available! 




WHAT DO YOU USE YOUR TRS-80® For? 

• Word Processing ? 

MULTIDOS will permit you to grab' a formatted diskette, shove it into a track compatible drive, and write to it — no matter if it is smgfe density, double 

5 density, or DBLDOS" density This is possible because of MULTIDOS' automatic density, recognition which includes diskettes formatted by S 

6 DBLDOS™ - similar to NEWDOS/80 2.0. S 

§ • Basic Programming ? 1 

S "MULTIDOS" BASIC is unequafed, in both features and size, among TRS-80® Disk Basics. 

SS - Paul Wtener 1982 

^ Included is B BASIC/CMD which has all of the "BOSS" single step and trace features. Now 

j|g you can insert 'break points' to turn on/off the trace and/or single stepping in your BASIC pro- 

^t gram Now you can save Ihe screen as formatted and look al vanablevalues. Afterward, return 

=s the screen as before and continue your BASIC program 

S * Whatever — MULTIDOS Is Easy To Learn, Easy To Use 

^ DOS commands may be repeated, even multiple DOS commands Systems utilities never 
ST require more than 2 keystrokes per query 

J| Now That's Easy! To Make It Easier There is a 'Help File'! 



MULTIDOS 
Model I or Model III 

On* *79 95 

(Watch the Competition Squirm!) 



MULTIDOS Now Available From 
WARLOCK WAREHOUSE 

1691 Eason. Ponttac Ml 48054 

(313) 673-2224 or (313) 673-8700 

— AND — 

POWERSOFT 

I iSOOSlemmons Fwy Sutlel25 

Dallas Texas 75229 

(214) 484-9428 



Cosmopolitan Electronics Corporation 

P.O. BOX 234 . PLYMOUTH. Ml 48170 

(313) 397-3126 

— Dealer Inquiries Welcomed — 

||llllllllllll|||||lll|||||llll|||||l|ll!l|||llll||||||lll||||||)l|||||lllllUllllRlllllllllllllllllllllllllUl 
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COD - Cash or Certified Check M 

Allow 2 Weeks For ^SL 

Personal Checks To Clear 3S 

AOO $3.00 M 

Shipping & Handling ^g 

Michigan Restdenis Sg 

include 4% Sales Tax ^g? 
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WHY $ IN DISK . . . WE'VE PUT SENSE IN CASSETTE 



RELIABLE LOW-COST HIGH-SPEED TAPIHG 



NO-FUSS HIGH SPEED SOFTWARE 

KWIC0S [Mod 1.4k to 48k) $26 

KWIK Cassette Operating System for Mod 1 . The easy-to-use Level 
II enhancement for reliable fas! taping (select 1000-3000 baud). 
Features: save, load, verify, search, chain-load, catalog, and test- 
read of both BASIC and machine-code programs . plus: long pgm 
names, passwords, debounce, slow list', self backup . and more. 

K0S3 (Mot) 3, 16k to 48k) $26 

The KWIK Cassette Operating System lor Model 3. All kwiCOS 
features at 2200 baud, plus KWIK set of: clock display, Time, Date. 
Cassette high/tow. I/O routing, etc. 

KWIKIT (specify Model) $12 

Mini-system for BASIC programs only. 
Easy Load 1000 baud for Mod 1 . 2200 baud 
for Mod 3. Many kwicos features. 

KWINK (Model i,4k-48k) $15 

Makes stand-alone fast-loading (2x-6x) 
copies of any standard 500 baud "SYS- 
TEM" program. (At 6x. 3 minute program 
loads in 44 sec!) 

KLOAD {Model 1) $15 

Similar to KWINK , but for BASIC pgms only. 
(Specify 16-32-4Bk) 

KL0AN (Mod 3, 16k -48k) $12 

Makes 500 or 1 500 baud copy of any other 
Standard syslem" pgm 

KWIK Software 

Boi 328 

Bolivar, MO 65613 

Phone (417) 326-7154 



CLEGS 



A NEW ANGLE 
ON TAPING! 



R^EDSPRINGSTEEL 

EASY SLIP-ON 
INSTALLATION 




NO-FUSS ANY-SPEED HARDWARE 

The amazing Lemon Aid Loader takes the 'finickies out of Model I 
loads, but even more amazing . . . make KWIK copies of your Model 
I programs and load them flawlessly at 6 * speed! Instant installa- 
tion . . . simply plug between your cable and recorder. No internal 
batteries or external power needed. 

New Model LLO-2 Deluxe loader has volume controlled jack for 
tape listening without plug-pulling, using external speaker/ear- 
phone. Ideal lor Model I. compatible with Mode! III. ppd £21 .99 
New Model LQ-2 loader. Built-in low level audio monitor with fixed 
volume. Model I. Mod III compatible. $18.99 

Model LL-1. Great little economy loader for 
the Model I. $14.99 

Model LSS Solid state SOFTBOL (1 ) elimi- 
nates switch-hits. (2) Push button and slide 
switch control of CTR motor makes tape 
positioning a snap without plug pulling. 
(3) Cushioned motor-off delay pulls end of 
programs past CTR pinch rollers ... no 
pinch -hits, plus (4) automatically gaps 
between saved programs. For all standard- 
plug recorders and computers, $18.99 



ADJUSTABLE 
RECORDER ANGLE 



v VINYL TIPS 



52.99 with aider 

Irom either company. 

Otherwise $4 99 ppd 
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LEMONS 
TECH 

325N.Hwy65 
P.O. Drawer 429 
Buttalg. M0 656Z2 
(417)3457643 



Call either number [rl 10 pm most any day Tor inlti or order U 8 orders postpaid, add S3 lor COD or overseas Missouri residents add sales Ti* 



PRACTICAL BUSINESS PROGRAMS 

continued from page 28 

computers. We input 1500,1600 as the answer to the 
above question. 

Next on the screen will be: 

FOR MAXIMIZATION ALL CONSTRAINTS MUST BE A*X1 + B*A2 <=Z 

FOR MINIMIZATION ALL CONSTRAINTS MUST BE A*X1 + B*X2 >=Z 

THE NON- NEGATIVITY CONSTRAINT FOR ALL VARIABLES ASSUMED 
1 MAXIMIZATION, OR 2 MINIMIZATION ? 

We have not spoken of the built-in constraint that all 
variables must result in answers which are greater than 
equal to 0. In business problems, this is a common 
limitation, and we have selected a solution procedure with 
this limitation built in. 

Since our objective is to maximize profit, we type 1 and 
hit ENTER. 

Next on the screen is: 

NUMBER OF CONSTRAINTS ? 

There are three constraints. One due to room, one due 
to budget, and one due to contract comment. We type 3 
and hit the ENTER key. 

The next question is: 

COEFFICIENTS OF XI AND X2 <= OR >= Z ? 



The values of the three constraints are: 



Equation § Coefficient of 


Coefficient of 


XI IBM's 


X2 Apples 


1 1 


1 


2 3)3)3)3 


25)3)3 


3 -1 


13 



Constant 



The above question will appear three times. We answer 
with the numbers in the table above. When complete, we 
see this on the screen: 

UPPER LIMIT OF XI ? 

The program is designed to handle a large variety of 
problems. You the user must select the scale which gives 
you the best picture for the problem under study. We have 
designed the program to recycle, so as to allow the user to 
try different scales to obtain the best picture for the 
purpose of the analysis. In this case we selected 10 as the 
upper value of X1 , because this is where the line for the 
maximum number of computers to be stocked crosses the 
Apple axis. In a similar manner we selected 10 as the 
answer for the next question. 

UPPER LIMIT OF X2 ? 

The next question is relative to the frequency of plotting 
the graphs. If you select too small a number, the graph will 
be skimpy; if you sleet too large a number, the amount of 
time needed to draw the picture will be very long. Start 
with the specification of 100 for this variable and then try 
different values to see which approach fits your needs the 
best. 



INCREMENT (1)3)3+) ? 
Next on the screen will be: 

PRINTER (Y/N) ? 

We have designed our printer copying routines for 
printers without graphic abilities. The screen results are 
much better than you can get from such printers. The 
results are of value and useful for reports if care is taken to 
select the scales to fit the abilities of the printers. We will 
assume that you have a printer, that it is running, and that 
you wish to have printer output of the results. In actual use 
we recommend that you spend some time in getting the 
scales set on the screen before using the printer to copy 
results. 

The next question is: 



TITLE 



DATE ? 



We make it a practice to identify and date all output 
which is sent through the printer. Put in any title and date 
you wish. The date should be put in the form of MO/DA/YR. 

The next question is: 

COPY LENGTH (3,6) ? 

We have two copy routines in the program. Depending 
on the detail needed, you may prefer one to the other. Try 
both just to see what happens. We used 3 in our sample 
run. 

Next on the screen will be: 

AREA OR LINE PICTURE ? 

Two graphing routines are available. One plots the 
constraints as a line, and the other whites out the area 
where the constraint restricts the solution from occuring. 
We have found both pictures useful at different times. It is 
possible to end up with a screen which has been completely 
whited out when selecting the AREA option. If this 
happens, we say the solution is degenerate, or there is no 
feasible solution to the problem. 

We typed AREA at this time in our sample run and 
watched the picture being drawn. We almost had a 
unfeasible problem with the constraints we had defined in 
our sample problem. As you watch the picture being 
drawn, note how the first constraint is completly dominated 
by the second constraint. The amount of room available to 
stock computers is more than it needed. 

After the picture has been drawn and a copy made by 
your printer, you are told to hit ENTER to continue. Do so 
and you will see on the screen: 

ACTION MENU 

G NEW GRAPH 

R RECYCLE 

S SIMPLEX SOLUTION 

SELECTION ? 

As noted, you are now able to redraw your picture again 
and again in order to select the best picture for the 
problem under study. You may also recycle or use the 
built-in Simplex procedure for solving the problem analyti- 
cally. We selected this option, and now we will examine 
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the final simplex tableau which results. 
The tableau looks like the following: 

SOLUTION OPTIMAL 



XI 


X2 


SI 


S2 S3 


SI 0.00 


0.00 


1.00 


-0.00 0.00 5.80 


XI 1.00 


1.20 


0.00 


-1.00 0.00 3.00 


X2 0.00 


1.00 


0.00 


0.00 1.20 1.20 


0.00 


0.00 


.00 


0.64 420.00 26420.00 


XI 


3 






X2 =1 


.2 






IF AN X DOES NOT APPEAR IT IS ZERO 




VALUE OF OBJECTIVE FUNCTION 


6420 





In the case of a maximization problem, the solution is 
found by looking down the first column for XI and X2. In 
this case both are found. This means that both computers 
should be stocked. The number of IBM computers which 
maximize the contribution margin is 3.0. The number of 
Apple computers is 1.2. This means three IBM computers 
should be stocked and either one or two Apples. In 
mathematical problems contraints are fixed. In real life 
constraints are approximate. The two alternate decisions 
may be examined and the question reviewed. 

Warning— Nothing's Perfect 

The program's analytical solution is based on a Simplex 
algorithm, which is a step-by-step procedure for solving 
this problem. The Simplex algorithm is subject to a 
condition called "degenerate." When this condition exists, 
the algorithm will recycle forever or yield a false solution, 
not taking one or more of the constraints into account. 
Sometimes you can get around this condtion and obtain a 
useful result by putting the variables into the computer in a 
different order, or changing the order of the constraints. 
The solution will still be degenerate, but you will be able 
to obtain a workable result. 

The degenerate condition is not the same as an impossible 
set of constraints. Degeneracy may exist even when a 
solution is possible. If the constraints are put in such that 
no solution is possible, the algorithm will also give unusable 
results. The graphical picture will tell you what is happening 
in this case. 

10 CLEAR 500:CLS:REM "LPGRAPH 

20 CLS: PRINT "GRAPHICAL METHOD OF LINEAR PROGRAMMING": 

PRINT "Copyright "; PRINT "STEVEN M. ZIMMERMAN.PH.D. ":I=0 

30 PRINT "LEO M. CONRAD 1982" 

40 INPUT "OBJECTIVE FUNCTION A * XI + B* X2 ... INPUT A & 

B";A,B 

50 GOTO 620 

60 INPUT "NUMBER OF CONSTRAINTS" ;NE:C!S=NE: FOR 1=1 TO NE: 

INPUT "COEFFICIENTS OF XI AND X2 <= OR >= Z";A(I) ,B(I) ,C(I) : 

NEXT 

70 INPUT "UPPER LIMIT OF X1";TX:SX=0 

80 INPUT "UPPER LIMIT OF X2";TY:SY=0 

90 INPUT "INCREMENT (100+-)";JJ: INPUT "PRINTER (Y/N)";P$: 

IF P$="Y" THEN INPUT "TITLE & DATE";T$,D$: INPUT "COPY LENGTH 

(3,6)";CL 

100 INPUT "AREA OR LINE PICTURE" ;AL$ 

110 CLS: FOR 1=0 TO 43: SET(22,I) :NEXT 

120 FOR 1=22 TO 125: SET(I,43) :NEXT 




A powerful 
data base manager. 

Data-Writer can be used 

with your word processor or by 

itself as a complete stand-alone 

system for managing textual and 

numeric data. 

Use for order tracking, client billing, 
expense recordkeeping, operational 
reporting with totals and subtotals, form 
letter production to a large list or a subset, 
mailing list maintenance and other business 
and personal applications. Data-Writer's ease 
of use appeals to secretaries. 

• Data Entry program to create your data base or add 
records to an existing data base. It has error checking fea- 
tures and supports both fixed and variable length fields. 

• Machine-language File Editor lets you edit your data 
base without an independent word processor. Or, if 
you prefer, use your own word processor (Electric Pencil, 
Lazy Writer, Newscript or Scripsit) to create and edit 
your data base. 

• Field Manager that lets you add, delete, reorder or ap- 
pend fields and merge or split data bases. 

• Interactive, double-precision Math program that 
processes up to 20 equations of up to 255 characters 
using numbers you enter and your data base field labels. 
It includes an in-memory scratch pad to store temporary 
values. 

• Two-level Sort that enables you to sort on any field, with- 
out having previously designated it as a key. 

• Mailing Label program that allows you to print multiple 
labels from one to four across and to insert a fixed mes- 
sage on every label, 

• Machine-language Form Letter processor that allows 
you to insert data from your data base into a form letter 
or contract. Store the text for use later, 

• Report Generator for columnar tabulations with auto- 
matic headings, pagination, totals and subtotals, and 
sophisticated formatting control. 

• Powerful Select-lf command that lets you definea subset 
of your data base. With Select-lf and Sort, you can create 
dozens of new data bases for specific purposes. 

• Statistical check on your data base to locate data 
entry errors. Stats also reports maximum entered data 
length for each defined field, a tremendous aid when 
designing a report. 

• Data-Writer is both powerful and easy to use. "Why 
hasn't someone done this before!" 

For the TRS-80 Model l/lll (48K, 2 diik drives, lower case re- 
quired). Available from Software Options, 19 Rector Street, 
New York, N.Y. 10006. 212-785-8285. Toll-free order line: 
800-221-1624. Price: $125. (plus $3 per order shipping and 
handling). New York State residents add sales tax. Visa/ 
Mastercard accepted. <^^^^. 

SOFTWARE 




iCQMRJTRQMCSs 



November 1982 31 



130 1=7: FOR J=64 TO 832 STEP 128:1=1-1: PRINT gJ, 

(SY+I*(TY-SY)/6); : NEXT 

140 I=-l: FOR J=970 TO 1015 STEP 9:1=1+1: PRINT gJ, 

(SX+I*(TX-SX)/5); : NEXT 

150 GOTO 180 

160 PRINT g22, "PRESS ENTER TO CONTINUE"; 

170 Q$=INKEY$: IF Q$= IMI THEN 160 ELSE 680 

180 S=(TX-SX)/JJ 

190 IF AL$="AREA" THEN 250 

200 FOR 1=1 TO NE:HH=1: FOR X=SX TO TX STEP S:Y=999999: 

IF B(I)<>0 THEN Y=-A(I)/B(I)*X+C(I)/B(I) : REM THIS IS THE 

CONSTRAINT EQUATION 

210 E=23+((X-SX)/(TX-SX))*93:F=40-((Y-SY)/(TY-SY))*37: 

IF E>5 AND E<126 THEN IF F>0 AND F<43 SET(E.F) 

220 IF E<5 OR E>126 OR F<0 OR F>43 PRINT 861,"***";: 

FOR L=l TO 3:R=RND(100): NEXT L: PRINT 661," "; 

230 IF A(I)<>0 AND HH=1 THEN H=INT(X): IF B(I)=0 AND 

H=INT(C(I)/A(I)) THEN FOR H=0 TO 42: SET(E.H): NEXT H:HH=0 

240 NEXT X,I: GOTO 490 

250 IF M%=2 THEN 370 

260 FOR 1=1 TO NE:HH=1: FOR X=SX TO TX STEP S:Y=999999: 

IF B(I)<>0 THEN Y=-A(I)/B(I)*X+C(I)/B(I) : REM THIS IS THE 

CONSTRAINT EQUATION 

270 E=23+((X-SX)/(TX-SX))*93:F=40-((Y-SY)/(TY-SY))*37: 

IF E>5 AND E<126 AND F>0 AND F<43 AND B(I)>=0 AND C(I)>0 

SET(E.F): FOR RX=F TO STEP -1: SET(E.RX): NEXT : GOTO 360 

280 IF Y<0 AND B(I)<>0 AND C(I)>0 : FOR RX=43 TO STEP -1: 

SET(E.RX): NEXT : GOTO 360 

290 IF E>5 AND E<126 AND F>0 AND F<43 AND B(I)<>0 AND C(I)<0 

SET(E.F): FOR RX=F TO 43 : SET(E.RX): NEXT : GOTO 360 

300 IF B(I)=0 AND A(I)<>0 AND X>(C( I)/A(I) ) AND C(I)<0 THEN 

PRINT 661,"***";: FOR L=l TO 3:R=RND(100) : NEXT : PRINT §61, 

11 " ; : GOTO 360 

310 IF B(I)=0 AND A(I)<>0 AND X<(C(I)/A( I) ) AND C(I)>0 THEN 

PRINT §61,"***";: FOR L=l TO 3: R=RND(100): NEXT : PRINT 861, 

11 ";: GOTO 360 

320 IF Y>0 AND Y<TY THEN IF E<5 OR E>126 OR F<0 OR F>43 THEN 

FOR RX=42 TO STEP-1: SET(E.RX): NEXT: GOTO 360 

330 IF A(I)<>0 AND HH=1 THEN H=INT(X): IF B(I)=0 AND 

H=INT(C(I)/A(I)) THEN FOR H=0 TO 42: SET(E.H): NEXT H:HH=0 

340 IF Y<TY OR B ( I ) =0 THEN IF Y>0 AND A(I)<>0 THEN FOR RX=0 

TO 43: SET(E.RX): NEXT: GOTO 360 

350 IF C(I)<0 AND Y>0 AND A(I)<>0 THEN FOR RX=0 TO 43: 

SET(E.RX) : NEXT 

360 NEXT X,I: GOTO 490 

370 REM FOR MINIMIZATION AREA PLOTTING 

380 FOR 1=1 TO NE:HH=1: FOR X=SX TO TX STEP S:Y=999999: 

IF B(I)<>0 THEN Y=-A(I)/B(I)*X+C(I)/B(I) : REM THIS IS THE 

CONSTRAINT EQUATION 

390 E=23+((X-SX)/(TX-SX))*93: F=40-((Y-SY)/(TY-SY))*37: 

IF E>5 AND E<126 AND F>0 AND F<43 AND B(I)>0 AND C(I)>0 

SET(E.F): FOR RX=F TO 43 : SET(E.RX): NEXT: GOTO 480 

400 IF E>5 AND E<126 AND F>0 AND F<43 AND B(I)<>0 AND C(I)<0 

THEN SET(E.F): FOR RX=F TO STEP -1 : SET(E.RX): NEXT: 

GOTO 480 

410 IF B(I)=0 AND A(I)<>0 AND X<(C( I)/A( I) ) AND C(I)>0 THEN 

FOR RX=42 TO STEP -1: SET(E.RX): NEXT: GOTO 480 

420 IF B(I)=0 AND A(I)<>0 AND X>(C(I)/A( I) ) AND C(I)<0 THEN 

FOR RX=42 TO STEP -1: SET(E.RX) : NEXT: GOTO 480 

430 IF Y>0 AND Y<TY THEN IF E<5 OR E>126 OR F<0 OR F>43 THEN 

PRINT 661,"***";: FOR L=l TO 3:R=RND(100) : NEXT L: PRINT §61, 

11 ";: GOTO 480 



440 IF Y>0 AND B(I)>0 AND C(I)>0 : FOR RX=43 TO STEP -1: 

SET(E.RX): NEXT: GOTO 480 

450 IF Y<TY AND Y>0 AND B(I)<0 AND C(I)<0 : FOR RX=43 TO 

STEP -1: SET(E.RX): NEXT: GOTO 480 

460 IF Y<TY AND A(I)<0 AND B(I)<0 AND C(I)<0 : FOR RX=43 TO 

STEP -1: SET(E.RX) : NEXT: GOTO 480 

470 IF Y>0 AND Y<TY AND B(I)<>0 THEN FOR RX = TO 43: 

SET(E.RX): NEXT 

480 NEXTX.I 

490 IF P$o"Y 11 THEN 160 

500 LPRINT " " 

510 LPRINT "TITLE: ";T$:LPRINT "DATE: ";D$ 

520 FF$="MAXIMIZATION": IF M%=2 THEN FF$="MINIMIZATION" 

530 LPRINT FF$: LPRINT " " : LPRINT " THE OBJECTIVE FUNCTION 

IS ";A;» * XI + ";B;" * X2 " 

540 LPRINT " THE CONSTRAINTS ARE ": FOR 1=1 TO NE: LPRINT 

" ";A(I);" * XI + ";B(I);" * X2 ";FZ$;" »;C(I): NEXT I: 

SP=2: IF CL=6 THEN SP=1 

550 l%= » mmm »; FOR 1=3 TO 43 STEP SP: J=42-I: 

IF I<43 THEN LPRINT USING E$; (SY+J*(TY-SY)/39) ; : 

560 FOR X=0 TO 100 STEP 1.6: REM CHANGE 100 TO 127 ON LINE 

PRINTER II 

570 IF POINT(X.I) THEN LPRINT "*";ELSE LPRINT " "; 

580 NEXT X: LPRINT " ": NEXT I 

590 FOR 1=0 TO 6:G(I+l)=SX+I*(TX-SX)/5: NEXT 

600 e$=» mtt.ttw-ttw m#.mM- «»,«■«« 

mm . m mMtt , m ###,### J##": LPRINT USING E$; 
G(1),G(2),G(3),G(4),G(5): GOTO 160 :REM ADD G(6) FOR LINE 
PRINTER I 

610 PRINT "SIMPLEX SOLUTIONS TO LINEAR PROGRAMMING PROBLEMS" 
620 PRINT "FOR MAXIMIZATION ALL CONSTRAINTS* ASSUMED TO BE 
A*X1 + B*X2 <=Z" 

630 PRINT "FOR MINIMIZATION ALL CONSTRAINTS ASSUMED TO BE 
A*X1 + B*X2 >=Z" 

640 PRINT "THE NON-NEGATIVITY CONSTRAINTS FOR ALL VARIABLES 
ASSUMED" 

650 INPUT " 1 MAXIMIZATION OR 2 MINIMIZATION "\H%: IF M%<1 OR 
H%>2 THEN 650 

660 FZ$=">=": IF MX=1 THEN FZ$="<=" 
670 GOTO 60 

680 CLS: PRINT "ACTION MENU": PRINT " G NEW GRAPH": 
PRINT " R RECYCLE": PRINT " S SIMPLEX 
SOLUTION" 

690 INPUT "SELECTION ";SS$: CLS: IF SS$="S" THEN 730 
700 IF SS$="R" THEN 20 
710 IF SS$="G" THEN 70 
720 GOTO 680 
730 V%=2 
740 RX=C%+1 
750 CC%=V%+C«+1 
760 IF M%=2 THEN RX=V%+1 
770 X1(1)=A:X1(2)=B 
780 IF MX=2 THEN 860 
790 FOR J=l TO n 
800 X(CX+1,J)=-X1(J) 
810 NEXT 

820 FOR J=VX+1 TO VX+CX+1 
830 X(CX+1,J)=0 
840 NEXT 
850 GOTO 900 
860 FOR 1=1 TO n 
870 X(I,V5S+C%+1)=X1(I) 
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880 NEXT I 

890 X(V%+l,V%+a+l)=0 

900 FOR 1=1 TO C% 

910 X1(1)=A(I):X1(2)=B(I):X1(3)=C(I) 

920 IF M%=1 THEN 980 

930 FOR K=l TO V% 

940 X(K,I)=X1(K) 

950 NEXT K 

960 X(VJS+1,I) = -X1(VS5+1) 

970 GOTO 1020 

980 FOR K=l TO VS5 

990 X(I.K)=X1(K) 

1000 NEXT K 

1010 X(I,CCS)=X1(V«+1) 

1020 NEXT I 

1030 FOR 1=1 TO R%-1 

1040 IF H%=2 THEN 1090 

1050 FOR K=V!S+1 TO Ca-1 

1060 IF I=K-V% THEN LETX(I,K)=1 

1070 NEXT K 

1080 GOTO 1120 

1090 FOR K=C%+1 TO CC56-1 

1100 IF I=K-C% THEN LET X(I,K)=1 

1110 NEXT K 

1120 NEXT I 

1130 IF P$="Y" THEN P$="H" ELSE P$="C". 

1140 IF M%=1 THEN 1250 

1150 FOR J=l TO C% 

1160 CL$(J)="S"+CHR$(J+48) 

1170 NEXT J 

1180 FOR J=C%+1 TO C%+V%+1 

1190 CL$(J)="X"+CHR$(J-C%+48) 

1200 NEXT 

1210 FOR 1=1 TO R56-1 

1220 RL$(I)="X"+CHR$(I+48) 

1230 NEXT 

1240 GOTO 1580 

1250 FOR J=l TO U 

1260 CL$(J)="X"+CHR$(J+48) 

1270 NEXT 

1280 FOR J=V%+1 TO CCX-1 

1290 CL$(J)="S"+CHR$(J-V%+48) 

1300 NEXT J 

1310 FOR 1=1 TO RS-1 

1320 RL$(I)="S"+CHR$(I+48) 

1330 NEXT I 

1340 GOTO 1580 

1350 CL$(0)=" ":RL$(R%)=" " 

1360 ZP$=" ###■## " 

1370 AP$=" % % " 

1380 FOR J=0 TO CCX-1 

1390 PRINT USING AP$;CL$(J);: IF P$="H" LPRINT USING AP$; 

CL$(J); 

1400 NEXT: PRINT: IF P$="H" THEN LPRINT " " 

1410 FOR 1=1 TO R%:REM PRINT RESULTS SUBROUTINE 

1420 FOR J=l TO COS 

1430 IF J=l THEN PRINT USING AP$;RL$(I) ; : IF P$="H" THEN 

LPRINT USING AP$;RL$(I); 

1440 PRINT USING ZP$;X(I,J); 

1450 IF P$="H" THEN LPRINT USINGZP$; X(I,J); 

1460 NEXT J 

1470 PRINT 



1480 IF P$="H" THEN LPRINT " " 

1490 NEXT I 

1500 IF M%=2 THEN 1540 

1510 FOR 1=1 TO R%: IF LEFT$(RL$(I) , 1)="X" THEN PRINT 

RL$(I),"=";X(I,Ca): IF P$="H" THEN LPRINT RL$(I),"="; 

X(I,CC%) 

1520 NEXT: PRINT "IF AN X DOES NOT APPEAR IT IS ZERO": 

IF P$="H" THEN LPRINT "IF AN X DOES NOT APPEAR IT IS ZERO" 

1530 GOTO 1560 

1540 FOR I=NE+1 TO CCI-1: PRINT CL$(I) ,"=";X(R%, I) : IF P$="H" 

THEN LPRINT CL$(I) , "=",X(R%,I) 

1550 NEXT 

1560 PRINT "VALUE OF OBJECTIVE FUNCTION ";X(R%,CC%): IF 

P$="H" THEN LPRINT "VALUE OF OBJECTIVE FUNCTION ";X(R%,CC%) 

1570 RETURN 

1580 REM START OF ANALYSIS 

1590 REM NEGATIVE INDICATOR? 

1600 N=0 

1610 FOR J=l TO CCX-1 

1620 IF X(RX,J)<0 THEN LET N=1:JJ=J: GOTO 1660 : REM JJ IS 
PIVOTAL COLUMN 

1630 NEXT J 

1640 PRINT "OPTIMAL SOLUTION ": IF P$="H" THEN LPRINT 

"OPTIMAL SOLUTION" 

1650 GOSUB 1350 : INPUT "ENTER TO RECYCLE FROM START" ;DD$: 

GOTO 10 

1660 M=9999999:REM SELECTING ROW 

1670 FOR 1=1 TO R%-1 

1680 IF X(I,JJ)=0 THEN XI ( I ) =999999999 : GOTO 1700 

1690 X1(I)=X(I,CCX)/X(I,JJ) 

1700 IF X(I,JJ)<=0 THEN 1720 

1710 IF X1(I)<M THEN M=X1(I) :II=I:REM PIVOTAL ROW 

1720 NEXT I 

1730 PV=X(II,JJ) 

1740 FOR J=l TO CC%:REM DIVIDE ITH ROW OLD BY PIVOT 

1750 X(II,J)=X(II,J)/PV 

1760 NEXT 

1770 RL$(II)=CL$(JJ):REM RELABEL ROW 

1780 FOR 1=1 TO R% 

1790 IF 1=11 THEN NEXT I: GOTO 1580 

1800 A=X(I,JJ) 

1810 FOR J=l TO OCX 

1820 X(I,J)=X(I,J)-A*X(II,J) 

1830 NEXT J, I 

1840 GOTO 1580 

Summary 

This program solves the two-dimensional simplex-type 
linear programming problem both visually and analytically. 
The graphics allow the user to see the area where a 
feasible solution exists and how it is identified. The simplex 
solution procedure attached to the graphic analysis yields 
an algebraic solution. 

Steven M. Zimmerman, Ph.D. 

College of Business and Management Studies 

University of South Alabama 

Mobile, Alabama 36688 

Leo M. Conrad 

Imagineering Concepts 

P.O. Box 9843 

Mobile, Alabama 36691-0843 ■ 
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Disk Drives and Cases 

The B.T. Enterprises Mini-Floppy 5-1/4 inch Disk Drive Case is unique in that it is 
constructed of clear plexiglass. This innovative design is the first on the market which 
enables the user to actually see the Disk Drives working while using the computer. The 
case is constructed of a 1/4 inch durable plexiglass base with a 1/16 inch clear plexiglass 
cover. The case and power supply are available for single or dual drives. One advantage of 
the dual design is that both floppy drives are built into one case for saving space and easier 
handling. 

The unit is equipped with a linear filtered power supply that is regulated to match the 
power consumption of the mini drives. The power is AC fuse protected with a chasis 
mounting fuse on the back of the case for easy maintenance. An on/off switch is provided 
on the bacck of the case. The AC line cord is a standard 3 prong plug designed to meet UL 
listing. 



201100* 
201200* 
201101* 
201102* 
201103* 
201104* 
201201* 
201202* 
201203* 
201204* 
200300 



200101 
200102 
200103 
200104 



FLOPPY DISK DRIVES 

5-1/4 Disk Drive Case & Power Supply (Sgl) $ 79.95 
5-1/4 Disk Drive Case & Power Supply (Dbl) $ 109.95 

Tandon 40tk SH w/case & Supply $ 299.95 

Tandon 40tk DH w/case & Supply $ 399.95 

Tandon 80tk SH w/case & Supply $ 399.95 

Tandon 80tk DH w/case & Supply $ 499.95 

Dual Tandon 40tk SH w/case & Supply $ 579.95 

Dual Tandon 40tk DH w/case & Supply $ 779.95 

Dual Tandon 80tk SH w/case & Supply $ 779.95 

Dual Tandon 80tk DH w/case & Supply $ 979.95 

Disk Drive Extender Cable $ 9.95 
"Complete with extender cable 

Bare Drives 

Tandon 40tk SH Bare $ 259.95 

Tandon 40tk DH Bare $ 359.95 

Tandon 80tk SH Bare $ 359.95 

Tandon 80tk DH Bare $ 459.95 




Helpful Products for 
Your Computer 




Printer Stands 

End the paper mess on 

your computer desk. Our 

printer stand allows 

your paper to be fed from 

under the printer, 

making room for the 

used paper to stack behind the print out of the way. 

Available with an optional removable shelf (Shown) for 

easy computer forms change. Available in Large size 

also, for MX- 1 00 and other large printer users also. Also 

available with center slot for bottom feed printers. 

(Large only). 

Regular Stand (300010) $29.95 

Regular w/shelf (300011) $44.95 

Large Stand (300020) $34.95 

Large w/shelf (300021) $49.95 

Large w/slot (300050) $49.95 

Diskettes 

Elephant Memories Systems Diskettes at a special LOW 

price!!! 

Single Density/Single Sided/Soft Sector 500351 $22.50 

Double Density/Single Sided/Soft Sector 500352 $26.50 

Double Density/Double Sided/Soft Sector 500353 $32.50 

Portable Disk Bulk Eraser 

Clean all old data off of your diskettes before reusing 
them! This is a MUST for your computer room. Easy to 
use, non-electric, portable!!! 
500102 Only . . .$4.95 



(500011.) $49.50 dz. 
(500021) $49.50 dz. 
(500031) $49.50 dz. 
(500041) $49.50 dz. 



Ribbon Reloads for MX 70/80/100 

Reload your old ribbon cartridge for much less than 
replacing the cartridge! Quick and easy to do, takes only 
about 2 minutes each to reload. Includes complete 
instructions. Available in Black and 4 popular colors! 

Black Reload (500000) $3.95 ea. (500001) $39.95 dz. 
Red Reload (500010) $4.95 ea. 
Blue Reload (500020) $4.95 ea. 
Green Reload (500030) $4.95 ea. 
Brown Reload (500040) $4.95 ea. 

Ribbon Cartridges for MX 70/80 

Replacement cartridges for your printer. Complete 
cartridge for your printer at great savings! Available in 
Black and 4 popular colors! Buy in 3 packs and save! 
Black Cartridge (500050) $ 10.95 ea. (500051)$29.95/3 
Red Cartridge (500060)$11.95 ea. (500061)$31.95/3 
Blue Cartridge ( 500070) $ 1 1 .95 ea. ( 50007 1 ) $3 1 .95/3 
Green Cartridge (500080)$11.95 ea. (500081)$31.95/3 
Brown Cartridge (500090) $11. 95 ea. (500091)$31.95/3 

10B Carlongh Rd. 

Bohemia, H.T. 11716 

(816) 867-8188 (voice) 

(816) 888-8836 (modem) 
j Dealer Inquires Welcome 

Prices subject to change 
H.Y.S. Residents Add Tax Add $8 shipping - handling 





Welcome 



DON'T JUDGE 
A COMPUTER 
BY IT'S COVER!!! 

. . .If you were to have a 

Microcomputer operating at 

4 MHZ 
. . .If you were to have a 8 

Megabyte Hard Drive built in 
... If you were to have a floppy 

disk drive built in 
. . .If you were to have an Amber 

Phosphor Monitor built in 
... If you had the finest Hard 

Disk Operating System 

available 

You would have the New 

B.T. 4x5 Model III 

microcomputer, the only one 

in its class. 

Starting with a basic TRS-80 Model III, add 
one Tandon 40 Track Dual Sided Disk Drive, 
48K of High Grade NEC Memory, the famous 
Micro Mainframes Disk Controller System, 
and the security of B.T. Enterprises 
engineering assuring long life and 
dependability! 

Then we really get started include a 4 MH2 
Module installed to make the Model III 
Microprocessor operate at twice the speed of 
a standard Radio Shack Model III. Also 
Include the use of a Superdense Disk Drive 
for extra Floppy disk storage (360K). Then 
have installed a 5 Megabyte Hard Disk Drive 
(Winchester Technology). When the system 
is configured, the Hard Disk Drive contains 
the operating system and becomes the 
master (primary) drive. The Hard Disk has 
40 times the speed of data transfer as 
compared to a normal floppy disk as well as 
containing the storage capacity of more than 
30 standard floppy disk drives. 

Each unit Is built 
and tested in our Long 
Island New York 
assembly plant and 
delivered to your 
dealer complete wi 
Dos Plus 4.0 Disk 
Operating System 
which we consider 
have the finest 
features of any H 
Disk Operating 
System available. 

Price: 

$3995.00 

Add $80.00 shipping and handling 




B.T. Hard Disks 

We want you to have all the power that your 
TRS-80 is capable, at prices that have other 
manufacturers cross-eyed! These Five and 
Ten Megabyte units are easy to use, just plug 
them Into the expansion buss of your Model I 
or Model III. Comes complete with the 
fantastic DOS PLUS 4.0 Operating System! 
Available in two configurations: 5 Megabyte 
Fixed, 10 Megabytes Fixed. Look at the 
incredible low prices of our systems! 
SYSTEM PRICING 
5 Megabyte Winchester Fixed Disk 
201505 Model I Version $2795.00 

203505 Model III Version $2795.00 

10 Megabyte Winchester Fixed Disk 
201510 Model I Version $3195.00 

203510 Model III Version $3195.00 

Add $10.00 shipping and handling 



Upgrade Kit 

Putting Disk drives into your TRS-80 
Model III will tarn it into the powerful 
computer it was designed to be. The B.T. 
Enterprises DISK DRIVE INSTALLATION 
KIT Is easy to do and represents a 
substantial savings over the cost, if done by 
Radio Shack. 

The kit was designed to be installed by a 
non-technical person, and takes an average 
of 45 to 75 minutes to complete. The only 
tools necessary are a phillips and flat head 
screw driver and a pair of diagonal cutters. 
No cutting of traces or soldering is 
necessary. The full instruction procedure 
was the topic of a feature in 80 US Magazine 
in the May, 1982 issue, and was given high 
marks for ease of installation. 
KIT CONSISTS OF: 
• FDC III B* Micromainframe Controller 

Board assembled 6? tested 

Switching power supply 

Disk drive mounting brackets 

All cables and hardware 

Instructions with diagrams 

Drives are optional 
*FDC III C Board optional at additional cost 
supports 8 inch external drives and 
extended density 5-1/4 inch drives (dual 
headed and 80 track) 

203103 Disk Upgrade Kit B Version 

w/hardware 
803104 Disk Upgrade Kit C Version 

w/hardware 
203 1 1 3 Disk Upgrade B Version w/8 40tk » 

38K * 

803114 Disk Upgrade C Version w/2-40tk & 

32K 
803118 Disk Upgrade C Version w/S 40tk 

DH6T33K 
803116 Disk Upgrade C Version w/S 80tk Sf 

32K 
203 1 1 7 Disk Upgrade C Version w/2 80tk 
DH Sf 32K 
FDC III B Controller Board only 
FDC III C Controller Board only 
Switching Power Supply (3 

voltages) 
Controller Assembly Kit 
Controller Assy kit w/power Supply 



$279.96 



$329.96 



$ 799.96 



$ 849.98 



* 1049.95 



$1049.98 



803003 
203004 
800800 



$1249.95 
$ 139.98 
$ 284.96 



203010 
203810 
DH — Dual Headed 



99.96 

76.00 
174.98 




10B Carlough Kd. 
Bohemia, N.Y. 11716 
(516) 567 8155 (voice) 
(816) 588-5836 (modem) 
Dealer Inquiries Welcome 
N.Y.S. Residents Add Tax 




Radio Shack is a trademark of 
Tandy Corp. 

Toll Free Order Line (800) 645-1 165 

Welcome prices subject to change 
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The selection of ratios produced by our program are very 
popular among real estate investors. Included in the 
selection are: 

1. Gross Rent Multiplier 

2. Capitalization Ratio 

3. Cash on Cash, return on investment (equity), ROI 

4. Debt coverage ratio 

We will detail how each of the ratios are calculated and 
some of the thinking processes used in applying them to 
investments. As with all tools, it is up to the investor to 
decide how best to use them for himself in his particular 
situation. 

RATIOS CALCULATION METHODS 

The Cross Rent Multiplier is the ratio of the investment 
divided by the gross rent income. This is a very useful fast 
method to tell if an investment is earning enough to justify 
a given price. In times of consistent financing and predict- 
able business conditions, the gross rent multiplier can be a 
useful first cut tool. In times of innovative financing and 
unstable business conditions, the gross rent multiplier can 
be difficult to use. 

Cap rates, or capitalization rates have been popular for 
both real estate investment and appraisal. The assumption 
when using cap rates is the investment (total investment 
including mortgages) should earn some value for many 
years, as if it were money placed in a bank forever. The 
calculation method consists of dividing the net yearly 
income (Gross income less expenses) by the total invest- 
ment. No mortgage payments are taken into consideration. 

CASH on CASH, return on investment, return on equity, 
or ROI may be calculated by dividing the cash flow per 
year, (Cross less expenses, less mortgage payments) by the 
cash investment. This method assumes a steady yearly cash 
earnings which is never true if after tax income is being 
considered. 

Debt Coverage is simply the ratio of the mortgage to the 
overall investment. It tells the investor how much investor 
capital is needed as a ratio of the overall the investment. 
The lender will often specify the maximum coverage 
percentage which is acceptable from the lender's point of 
view. 

CALCULATION OF THE FACTORS 
OF A MORTGAGE 

To make the task of using the program a little easier, we 
have included the ability to calulate any one of the four 
factors of a mortgage. The method used to calculate each 
factor is detailed in Table 1 (see next column). 

The only method that needs some explanation is that for 
finding interest per month. This task is usually a gross 



Loan - principal P=R*((l+i)"N-l)/(i*(l+i)"N) 
Payment R=P*i*(l+i)"N/((l+i)"N-l) 

Months N=U (l/(l-(i*P/R))/LN (1+i) 

interest A five step approxiiation- 

where a series of five 
straight lines are fitted to 
the equation to find interest 
per period. 

Where i=interest per month, N=nuiber of months, R=the payment 
per lonth, and P is the loan or principal. 

Table 1: Factors of a Mortgage Calculation Method 



search task or an approximation task such as we have 
developed here. There is no direct method available. 

The approach we have used consists of finding two 
points on the interest function, at 25%/12 and 75%/12 
interest per month. A straight line is fitted to these two 
points, and the point where the straight line crosses the X 
axis is calculated. Then a small amount is added and 
subtracted to the value of X at this point, and the process 
is repeated. Each time the process is repeated the interval 
is reduced. 

USING THE PROGRAM 

The main menu of this program may be called by typing R. 
in either the RUN or DEFinable modes. 

MORTG RATIOS? 

You select the choice you want by typing the entire word 
as shown. The reason the MORTG option was included in 
this program is that, in our experience, the investor often is 
missing some information about the mortgage. This option 
allows you to solve for any missing information. 

If you type MORTG and hit ENTER the next thing you 
will see is: 

1-YR 2-LO 3-PAY 4-X? 

The option in this menu must be selected by its number. 
1 means you want to solve for the number of years, 2 for 
the value of the loan, 3 for the monthly payment, and 4 for 
the annual percentage rate of the loan. Assume for our 
example you know the payments are $180.03 per month, 
the loan's value is $15,000 and that there is 15 years left 
on mortgage. Type 4 to select the annual percentage rate 
option and then answer the next three questions with the 
data just given. The results will be: 

PRIN: 15000. 
PAY: 180.03 
11.99026322? 
15. YEARS 
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Ull COMPASS SOFTWARE presents. 




MORRIS 

f BDFi.S 



Here's a Pair of 
Games of 




CAT and MOUSE! 

NINE MEN'S MORRIS nas been around since 
Ihe reign ot Elizabeth I Here we present the 
game m j is most generally accepted traditional 
form- according to Hoyle Its siraleqies ol 
placemen! and cfiase are classic 

BORIS offers a brand new variation Tie add' 
lion ot a center square 10 trie traditional Morns 
board introduces a iriree-dimensionat element 
and a wfiole new game BORIS will lest you< 
power ot visualization as well as votir nerve 

Available lor TRS-80 MOdlls I * III 
CASSETTE II6K.LVL II. Mini $14.95 

DISK |32K Minimuml $24.95 



Logophiles and Lexiphants 
BEWARE! 



WoTd 

will drive you absolutely 

MAD 

What's YOUR Turn-On? 

•The challenge of a puzzle for one 

• A competition in words for 

up to eight 

M you love words and word games This 
fascinating puzzlement will give you 
hour upon hour of fun 

Every Game Is Ditfereni' 

Available lor TRS-80 Models I & III 
CASSETTE II6K.LVLII Mini 112 95 

DISK |32K Minimuml SI9.95 



All Ihe THRILLS SPILLS. ACTION 
and EXCITEMENT ofahorseshow YOU 
design your own events by selecting 
combinations ot these nine courses 



1. The Big Keyhole 

2. The Little Keyhole 

3. The Rescue Race 

4. The Flag Race 
The Barrel Race 
The Slalom 
The Serpentine 
Cross Country 
Take Your Own Line 



Up to six players ride the courses, com- 
pete against the clock and eachother tor 
points and the CHAMPIONSHIP' Three 
levels ot play let you progress to expert 
rider 

Keypad Required 

Available for TRS-80 Models I & III 

CASSETTE [16K. LVL II Min) $14.95 

DISK [32 Minimuml $24.95 



Dealer Inquiries 
Invited 



COMPAS^ SYSTEMS, INC. 

VILLAGE SQUARE CENTER. BOX 388 

EAST HAMPSTEAD. NEW HAMPSHIRE 03826 

(603)329-5603 



VISA & MasterCard 
Accepted 





SYSTEM REFERENCE CARDS 

"This is a quality document and is beautifully con- 
ceived and produced. ... I am in awe of your mag- 
nificent document. 
H.W.W., Dayton, Ohio 



Send Check or Money Order 


Card 


Retail 


MODEL 1 BASIC & ASSEMBLER 


$4.95 


MODEL 1 BASIC-ONLY 


2.95 


MODEL II BASIC & ASSEMBLER 


5.95 


MODEL III BASIC & ASSEMBLER 


5.95 


MODEL III BASIC-ONLY 


3.95 


COLOR BASIC AND EXTENDED 


4.95 


POCKET BASIC 


2.95 


APPLE II & II PLUS BASIC 


3.95 


APPLE II & II PLUS BASIC & 6502 


4.95 



NEW! 



F& 



L l 



P^^HmBBcog|J 



j?j«11HB«ilg[ j 



RAINBOW 

CERTIFICATION 
SEAL 



THS-W 
COLOR BASIC 
AND EXTENDS) 



r 

E 
i 
i 
I 
I 
I 
I 



NANOS SYSTEMS CORP. 
P.O. BOX 24344 
SPEEDWAY. IN 46224 
(317) 244-4078 



MODEL II 

COMMANDS 
AND 

UTILITIES 

3.95 


«FEUN« CAJW «M IK 

Z80® 

wcnopfloctsson 

4.95 


MODEL II 

SVC 

2.95 



F&p 



Rssn APPLE 

_. || & || PLUS 



R^SD APPLE 



. — _ II * II PLUS 






■TRS-80 is a Registered Trademark ol Tandy Corp. 
APPLE is a Rea- TM ol APPLE COMPUTER. INC. 
•ZBO la a Refltelered TredemafkofZitoOjJnc^^^^^ 



When the program has finished printing on the printer or 
on the display (followed by an ENTER after each line) you 
will be returned to the main menu. This time select the 
RATIOS option and you will be asked the following 
question: 



GROSS RENT? 

Assume the gross rent is $200 per month or $2400 per 
year. Type 2400 and hit ENTER. The next question will be: 

INVESTMENT? 

Assume the investment is $25,000 including the mortgage. 
Type 25000 and hit ENTER. The next question is relative to 
annual expenses: 

EXPENSES? 

In this case assume expenses are equal to $2,1 50 per year. 
Type 2150 and hit ENTER. 

The next question is relative to the mortgage. Assume 
the mortgage is the same as reviewed above. If this is true, 
all you need to do is hit the ENTER key at this point. The 
results should be: 

GROSS RENT MULTI 
10.41666667 
CAP RATE 

0J1 
CASH/CASH 

-0.191036 
DEBT COVERAGE 

0.6 
GROSS RENT: 2400. 
INVESTMENT: 25000 

EXPENSES:2150. 
PRIN: 15000. 
PAY: 180.03 
11.99026322% 
15. YEARS 

You may wonder why the CASH/CASH is a negative 
number. If you calculate the gross income (2400) less 
expenses (2150) less 12 times the mortgage payment 
(180.03), you get -1910.36, a negative number, the ratio 
must therefore be a negative number. 

EXAMINING THE PROGRAM 

The first three lines of the program are the main menu. In 
line 1 the selection is made, and if MORTG is selected the 
program is routed to line 50. In line 2 the program is routed to 
line 1 if RATIOS is selected. In line 3 the program is returned 
to line 1 if an unacceptable selection is made. 

Line 10 inputs all the information needed by the 
program to calculate the ratios except debt information. 
Line 11 is designed to input mortgage information. If you 
have already calculated the mortgage in the alternative 
routine, you need only answer with the ENTER key to skip 
the entire line. 

Lines 12 through 15 print the ratios of interest, calculate 
their values, and prints the results. Line 16 prints the input 
information for the record. This line should be left out if 
you are not using a printer to aid in speeding the output 
process. 



Lines 40 through 47 are a series of four subroutines 
which do all the calculations for the interest calculations. 
Line 40 is to find the present value of the loan. Line 42 is 
to find the payments. Line 43 is to find the life while lines 
44 through 47 are used to find the annual percentage rate. 

In line 50 the menu for the mortgage is found. Lines 51 
through 54 input information available, while lines 55 
through 58 call the subroutine needed. 

The printing for all mortgage information is performed in 
line 59. This statement is used for both parts of the 
program. You may not wish to direct the program to this 
statement when calculating ratios if you are not using a 
printer. 



PROGRAM LISTING 



;A$:IF A$="MORTG"THEN 50 



"INVESTMENT?";D:INPUT 



13:PRINT 
14:PRINT 
15:PRINT 
16:PRINT 



1: INPUT "MORTG RATIOS?" 

2: IF A$="RATIOS"THEN 10 

3: GOTO 1 

10: INPUT "GROSS RENT?" ;G: INPUT 

" EXPENSES?" ;E 
11:INPUT "MORTGAGE?" ;P: INPUT "LIFE?" ;N:N=12N: INPUT "APR?";I 

:I=.01I/12:GOSUB 41 
12:PRINT "GROSS RENT MULTI":PRINT D/G 
"CAP RATE": PRINT (G-E)/D 
"CASH/CASH": PRINT (G-E-12R)/(D-P) 
"DEBT COVERAGE": PRINT P/D 
"GROSS RENT:";G:PRINT " INVESTMENT :"; D: PRINT 
"EXPENSES: ";E:G0T0 59 

40 :P=R*(a+IfN-l)/( I* (I+l)l|): RETURN 

41 :R=P*I*(l+I)l/( (1+1)1- 1):RETURN 
42:N=LN (1/(1- (IP/R) ))/LN (1+I):RETURN 
43:B=.25/12:T=.75/12:F0R U=l TO 5:C=B 

:D=R-P*C*(l+CfN/((l+C)l-l) 
44:E=T:F=R-P*E*(1+E)1/((1+E)1-1) 
45:A=(D-F)/(C-E):B=D-A*C:I=-B/A:G=P*I*(l+I)l/( (1+1)1-1) 

:T=I+.2/U"4:B=I-.2/U"4 
46: IF B<0 LET B=.001 
47: NEXT U: RETURN 

50: INPUT "1-YR 2-LO 3-PAY 4-%?";A 
51: IF A<>1 INPUT "LIFE?" ;N:N=12N 
52: IF A<>2 INPUT "PRINT?" ;P 
53: IF A<>3 INPUT "PAY?";R 
54: IF A<>4 INPUT "APR?"; 1:1= 
55: IF A=3 GOSUB 41 
56: IF A=2 GOSUB 40 
57: IF A=l GOSUB 42 
58: IF A=4 GOSUB 43 
59:PRINT "PRIN: ";P:PRINT "PAY: 

PRINT N/12;" YEARS" 
60: GOTO 1 



011/12 



;R: PRINT 12001; 



SUMMARY 

This program is written for the investor interested in real 
estate ratios to aid in making investment decisions. These 
ratios should not be used by themselves, but in conjunction 
with other evaluation techniques they can be of value. 
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MOD I/III SPEED MOD 



The only resource you can't replace is TIME- PLUG IN A SPRINTER (by Holmes 
Engineering) and 

TRIPLE THE SPEED of your TRS-80 MODEL I OR MODEL 3. 

YES! A NEW Z-80B MICROPROCESSOR IS INCLUDED! 

YES! Special circuitry handles your slower memory chips. 

YES! Automatic switch down to "normal" for disk I/O. 

YES! IT IS ABSOLUTELY FANTASTIC and only 99.50 COMPLETE!! 

Only the cream of the crop - - for you, from HACKS. 



SCRIPLUS v3.0 (by ROSTEK) is the software "patch" for SCRIPSIT (c) that lets you output 
control codes to CHANGE TYPE STYLES, UNDERLINE, etc. from within your text files. Written 
especially for the MX-80 but works fine with most any printer that accepts control codes. Makes your 
printer do all the tricks it was designed for. 4-DIR, KILL, MERGE, and MORE, WHILE IN 
SCRIPSIT (c). 
How many times have you wished? Here 'tiz ON DISK 39.95 



Need a SUPERFINE lowercase CHARACTER GENERATOR for your MOD I? KSG 
Technology builds "em, and we've got one just for you. Beautiful lowercase -FULL DECENDERS - 
Allofthegraphics,ofcourse.INCLUDEStheSPEC|ALGRAPHICSforCHR$(0)thruCHR$(3l) 
omitted in the later Radio Shack lower case chips. Ask for the CGA-2. You'll love it! Only 29.95 



Did you ever bomb a disk? SUPER UTILITY (by Kim Watt) WILL AUTOMATICALLY 
RECOVER BOOT SECTIONS, GAT TABLES, READ AND COPY PROTECTED MEDIA, 

TRANSFERFROM ONE DOS TO ANOTHER, SINGLE ORDOUBLEDENSITY.andon, and 
on, and on ... . You just wouldn't believe . . , Includes a hundred and some odd vital functions. The 
BEST (no doubt!) and very, very highly recommended for ANYONE that uses a TRS-80 MOD 1 or 
MOD 3 with any kind of DISK and any kind of DOS. Youjustgottouse it to realize what you've got 
here! The name "SUPER UTILITY" is a gross under- statement. One use can easily pay for the 
program. 48K required. Specify 35tk, 40tk or 80 tk media for your Mod I or Mod 3. Absolutely 
professional! You need this! Don't get caught without it. 74.95 



all hardware Model I Lowercase 



a Trademark ol Tandy Corp 



DUALCASE 

UPPER/lowercase, full time 
from power-up; NO software; 
Standard typewriter keyboard 
operation (shift to UPPER- 
CASE); Control characters can 
be displayed; 128 Total char- 
acter set plus full graphics. 

ELECTRONIC SHIFTLOCK 

No extra keys or switches. Sim- 
ply tap either shift key, UPPER- 
CASE lock, normal shift un- 
locks. 

DE-B-B-BOUNCE At no extra cost 
(At your option) 

BLOCK CURSOR If you like (No chg) 

SWITCHABLE from key board 



THE PATCH" is covered with a 
one year limited warranty on materi- 
als and workmanship. (Does void 
Radio Shack's 90 day warranty.) 



"THE PATCH" is a trademark of 
CECDAT.INC. 



"THE PATCH" is compatible with 
any word processor, any DOS and also 
other languages which use ROM sub- 
routines. Assembled and tested...$1 27.00 

"THE PATCH" unit plugs into the 
ROM sockets (does not replace existing 
ROM). Lowercase does require installa- 
tion of the extra video ROM (supplied 
with "THE PATCH"). 

Detailed instructions guide even the 
most inexperienced owner to complete 
installation in about 30 minutes. 
WHEN ORDERING SPECIFY: 
"Mem Size" □ "Memory Size" □ 
And your choice of any/all options. 

To order, send payment plus $2.00 
shipping and handling. Texas residents 
add 5% sales tax/ 



□ 



WHEN ORDERING SPECIFY: 

"Mem Size" □ "Memory Size" 
Any your choice of any/all options 
To order, send payment plus $2.00 shipping 
and handling. Texas residents add 5% sales 



HACKS 



P.O. BOX 12963 
Houston. Texas 77017 



National Distributors 



713-455-3276 



Steven M. Zimmerman, Ph.D. 

College of Business and Managements Studies 

University of South Alabama 

Mobile, Alabama 36688 

Leo M. Conrad 

Imagineering Concepts 

P.O. Box 9843 

Mobile, Alabama 36691-0843 ■ 



COLOR COMPUTER CORNER 

continued from page 24 

case modifications available which convert the Color Com- 
puter from reverse video to normal lower case (with 
descenders). They are not expensive. Why couldn't Radio 
Shack include a decent lower case on its machine? 
Remember, RS did the same thing with the Model 1. I 
can't say why. With a floppy disk and a printer, the Color 
Computer becomes a useful (and inexpensive) word pro- 
cessor. With programs like SPECTACULATOR, home finance 
control, inventory control, etc., the Color Computer becomes 
a very inexpensive yet versatile system. Unfortunately, 
since Radio Shack has decided (to the best of my 
knowledge) not to produce a full scale Expansion Unit, the 
potential power and usefulness of the Color Computer will 
remain limited. Considering the power of the 6809 proces- 
sor, this is sad fact. It wouldn't surprise me if some 
independent company decided to produce an Expansion 
unit that would elevate the Color Computer to the scale of 



the more versatile personal computers around today. Only 
time will tell. 

Joseph Rosenman 

35-91 161st Street 

Flushing, NY 11358 ■ 

ARRAY OF HOPE FOR BASIC PROGRAMMERS 

continued from page 22 

Hash code arrays also have some disadvantages which 
may not be obvious from the above examples. One of 
these is that, as for the direct lookup, duplicate keys 
cannot easily be accomodated. Duplicate keys will, of 
course, result in a clash, and the duplicate could be stored 
in the overflow portion. This would necessitate a search in 
the overflow portion each time, and thus the method 
would be most appropriate with a linked array. With 
duplicate keys the speed advantages of hash code arrays 
are reduced. The second disadvantage is that the array 
cannot easily be accessed in key sequence. This may not 
be necessary or only used sparingly, and in these cases the 
array could be sorted when the key sequence traversal is 
required. In most cases the advantages probably outweigh 
the disadvantages, and hash code arrays, like direct lookup 
arrays, should probably be used more extensively than at 
present. 

Arne Rohde 

Pilevej 31 

7600 Struer, Denmark ■ 
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THE CARDWRITER 

Anthony T. Scarpelli 



This article is about a program that is not really needed. 
The program writes postcards. Most people use postcards 
because they are handy and inexpensive. How much effort 
does it take to write a postcard, you ask? Not much, but 
when you have a lot of them to write, this program can be 
used to save a lot of time. This particular program is 
directed to those who like to send in postcards to TV 
stations. 

I believe we all watch TV. There is a great variety of 
programs available for viewing, and we all have our 
opinions as to their worth. They run from the best to the 
worst, each depending upon our own personal view. And 
some of us like to write to the TV station to express those 
views. Often it is not necessary to write a long letter, and 
sometimes we don't even have the time to to write such a 
letter. So that is where postcards come in and also this 
program. 

What this program does is to prompt you for certain 
responses, and you answer with either a number or with 
text, whichever is required. It also allows for a four line 
comment. It then prints the information out onto the card 
along with your name and address, and finally prints out 
the address of the broadcasting station you are writing to. 
You can literally print out a multitude of cards in minutes 
with little effort on your part; you don't even have to look 
up the addresses of the TV stations, nor even your own. 

Let's take a look at the program. Line 20 is our standard 
initializing line, and from lines 30 to 160 we set up all the 
string variables and arrays we will be using. Lines 30-50 are 
for our greeting, 60-110 are for our opinions, 120-150 are 
for the TV station addresses, and finally line 160 is for your 
own address. You'll notice here in line 160 that there is a 
bit of indenting on the second and third line of the 
address, but not on the first. This is because I TAB to the 
indentation during printing for the first line. This allows us 
to use one string variable; but many other methods can 
also be used if you don't like this one. You should also 
notice that in all the addresses there is a line feed (down 
arrow) between all the lines. You can put any addresses 
you want in these lines, and even expand on them. You 
might want to add to this list your local TV stations, for 
instance. 

Line 180 asks if you need instructions in case this is your 
first time through or if you don't write cards very often. 
Between lines 200 and 490 we input all the information 
that will eventually be printed. Lines 210-220 are for the 
greeting, and lines 230-260 are for the subject. I use line 
feeds freely in many of my print statements, so that is why 
some of these lines have no line numbers. (Most of these 
comments I make is for those of you who are new to 
Basic.) Line 250 will print a string of hyphens so that when 
you enter a subject, you will not go over the number of 
characters desired for that line. A postcard will easily fit 50 
characters in a line, so all printout has to be limited to that. 
Once you see a printout you'll know why you are limited 
to only 33 characters for the show title, and this seems to 



be enough for most shows. 

Lines 270 to 290 are for the date, and you will notice 
that line 290 says LINE INPUT. This is a disk basic 
statement that allows you to input commas and quotes 
which are normally delimiters in input statements. If you 
don't have disk basic, then delete "LINE", but you won't 
be able to use commas in your dates. Lines 300-320 are for 
the time, and lines 330-350 are for your opinion. You 
probably have noticed that in the prompts I have included 
the words that will lead into your response. This is to 
trigger your memory. It helps to know how it will be 
printed. 

Lines 360 to 460 are for your comment, and need more 
explanation. Line 380 again prints a line of hyphens to limit 
your first line of comment; you are allowed four lines, but 
only the first one is limited to less than 50 characters. Line 
390 initializes our comment variable and the count, and 
the next line sets up a loop that scans the keyboard for a 
keypress. It stays in that line until a key is pressed, then 
falls through to the next line as soon as you enter a 
character. The first thing we do is to print it, then check to 
see if it is an (ENTER), whose ASCII code is 13. Line 430 
checks to see if the keypress was a line feed (down arrow), 
and if it was, will print 50 hyphens, and then increment our 
count. If the count becomes five we leave the comment 
section. If our keypress was a backspace, we want to 
remove the last character from our comment string, and 
that is what the rest of line 450 does. Finally line 460 adds 
our character to the comment string and returns for 
another keypress. One problem with this routine that might 
be annoying to you is that there is no cursor as you type in 
your comment. If this bothers you, you can program one in 
here with a varitey of methods. 

Lines 470 and 480 ask for the broadcasting company 
you will be sending the card to, and it allows for an extra 
address that hasn't beed previously stored. This is taken 
care of in line 490. Of course you should not use commas 
in your address unless you have disk Basic. 

Lines 500 to 540 produce a pause to allow you to set up 
your printer. It also allows you to start over in case you 
made a mistake along the way, or want to change your 
opinion. Lines 560 to 770 print the card. Line 560 and 570 
are straightforward, and 580 gets the length of the subject 
string. We need to know how long it is because it will 
determine how many words will be printed on a line 
before going to the next line. We want to fill up the card as 
much as possible, but we also want to limit the lines to 50 
characters. So in lines 590 to 620 we use the length to 
determine how many words of the phrase "which was 
aired" will be printed along on the same line as the the 
subject string. We also set a flag count to be able to know 
later just how many words were used in the next printed 
line. That is, in lines 640 to 670, we have a similar process 
to fill up the line depending on what was printed before. 
All this is to make the card appear to have been typed by a 
human, and not a machine. 
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Lines 670 to 740 do the standard job of printing out the 
rest of the card. Line 750 and 760 allow you to turn the 
card over to print the address. And finally lines 780 and 
790 allow you to start another card. 

As is usual, even though the program is simple, a lot of 
work went into it to make a simple, time-consuming 
process, like cardwriting, into a simple, speeded up 
process. I hope that you can use it. I like it better than 
writing cards, myself. Now, if everyone used this faster 
process, maybe TV will change for the better because there 
will be more people writing in to let the station masters 
know that we care what is going on in the land of 
television. 

10 REM - - TV RESPONSE CARD WRITER 

20 CLEAR 500:DIM GR$(3) ,0P$(6) ,AD$(5) 

30 GR$(1)="SIR:" 

40 GR$(2)="SIRS:" 

50 GR$(3)="MADAM:" 

60 0P$(1)="EXCELLENT" 

70 0P$(2)="QUITE GOOD" 

80 0P$(3)="G00D" 

90 0P$(4)="0NLY FAIR" 

100 0P$( 5)=" PRETTY BAD" 

110 0P$(6)="TERRIBLE" 

120 AD$(1)="ABC-TV 

1330 AVE. OF THE AMERICAS 

NEW YORK NY 10019" 

130 AD$(2)="NBC-TV 

30 ROCKEFELLER CENTER 



NEW YORK NY 10020" 

140 AD$(3)="CBS-TV 

524 W. 57TH ST. 

NEW YORK NY 10019" 

150 AD$(4)="PUBLIC BROADCASTING SERVICE 

475 L-ENSANT PLAZA, SW 

WASHINGTON DC 20024" 

160 MA$="ANTHONY T. SCARPELLI 

98 FOXCROFT DR. 
SCARBOROUGH ME 04074" 
170 CLS: PRINT"** UNIVERSAL CARD WRITER **" 
180 PRINT: INPUT" DO YOU WANT INSTRUCTIONS (Y/N)";X$ 
190 IF X$="Y" THEN CLS:G0SUB 810 
200 PRINT: PRINT" ENTER YOUR UNIVERSAL GREETING:" 
210 PRINT"DEAR... 

1- -SIR: 

2- -SIRS: 

3- -MADAM:" 
220 INPUT GR 

230 PRINT:PRINT"ENTER THE SUBJECT:" 
240 PRINFYOUR SHOW..." 
250 PRINT" ";STRING$(33,"-") 
260 INPUT SB$ 

270 PRINT:PRINT"ENTER THE DATE:" 
280 PRINT"ON..." 
290 LINE INPUT DT$ 
300 PRINT:PRINT"ENTER THE TIME:" 
310 PRINT" AT..." 
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MULTIDOS 



Model III 

Now Available! 



WHAT DO YOU USE YOUR TRS-80® For? 

• Word Processing ? 

MULTIDOS will permit you to 'grab' a formatted diskette, shove it into a track compalible drive, and write to it — no matter it it is single density, doubte 
density, or DBLDOS™ density This is possible because of MULTIDOS' automatic density, recognition which includes diskettes formatted by 
DBLDOS™ — similar to NEWDOS/80 2.0, 

• Basic Programming ? 

"MULTIDOS' BASIC is u nequaled, in both features and size, among TRS-80* Disk Basics. 

- Paul Wiener 1982 

Included is B BASIC/CMD which has all of the "BOSS" single step and Irace features Now 
you can insert 'break points' to turn on/off the trace and/or single stepping in your BASIC pro- 
gram Now you can save the screen as formatted and look at variable values Afterward, return 
the screen as before and continue your BASIC program 

• Whatever — MULTIDOS is Easy To Learn, Easy To Use 

DOS commands may be repeated, even multiple DOS commands Systems utilities never 
require more than 2 keystrokes per query . 

Now That's Easy! To Make It Easier There is a 'Help File'! 



MULTIDOS 
Model I or Model III 



$7995 



Only 

(Watch the Competition Squirm!) 



MULTIDOS Now Available From: 
WARLOCK WAREHOUSE 

t69t Eason, Pontiac. Ml 48054 

(313) 673-2224 or (3131 673-8700 

-AND- 

POWERSOFT 

1 1500 stemmons Fwy Surte 125 

Dallas, Texas 75229 

(214)484-9428 



i 



Cosmopolitan Electronics Corporation 

P.O. BOX 234 • PLYMOUTH, Ml 48170 

(313) 397-3126 
— Dealer Inquiries Welcomed — 

llll^iHH^HiniNMWMlHniHnmUiniHltf>NNH«^»||^^aHNlll^i^MaUlHNtllH^ 



COD 



- Cash or Certified Check 

Allow 2 Weeks For 

Personal Checks To Clear 

ADD $3.00 

Shipping & Handling 

Michigan Residents 
include 4% Sales Tax 
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Assembly Language for Beginners (Part 9) 

Joseph Rosenman 



Since I KNOW that you dazzled all of your friends (not 
to mention yourselves) with last month's alphabet printing 
program, I will proceed with a description of different ways 
that the same task could be performed. 

Alphabet printing program 2 (reading from a table). 

Label Command Argument 
ORG 7000H 

;Rom subroutine to display character. 
;R0M subroutine to clear the screen. 
;Address to return to DOS. 

;Clear the screen. 

;Get the address of the letter table. 

;Number of letters in the alphabet. 



Get the current letter. 

Display it. 

Point to the next letter. 

One less letter to display. 

also, set the status flags. 

If not zero, display next letter. 



DISP 


EQU 


0033H 


CLR 


EQU 


01C9H 


DOS 


EQU 


402 DH 


PR0G2 


CALL 


CLR 




LD 


HL.TAB 




LD 


B,26 


LOOP 


LD 


A.(HL) 




CALL 


DISP 




INC 


HL 




DEC 


B 



JR 



JP 



NZ.LOOP 



DOS 



Data area 



TAB 



DEFM 
END 



1 ABCDEFGHIJKLMNOPQRSTUVWXYZ ' 
PR0G2 



7000 CD C9 01 21 13 70 06 1A 7E CD 33 00 23 05 20 F8 
7010 C3 2D 40 41 42 43 44 45 46 47 48 49 4A 4B 4C 4D 
7020 4E 4F 50 51 52 53 54 55 56 57 58 59 5A 



7000 . . ! . 



. 3 J . . . -gABCDEFGHIJKLMNOPQRSTUVWXYZ 



As you can see, there is also a second "dump" starting at 
address 7000H, except that the second dump is in. ASCII. 
Note that the table of the alphabet also appears intact in 
the dump. Are there any new instructions? No! Since I 
can't explain any new instructions, lef s take a closer look 
at the memory image. 



7000 


CD C9 01 


CALL 01C9H 


7003 


21 13 70 


LD HL.7013H 


7006 


06 1A 


LD B.1AH 


7008 


7E 


LD A.(HL) 


7009 


CD 33 00 


CALL 0033H 


700C 


23 


INC HL 


700D 


05 


DEC B 


700E 


20 F8 


JR NZ.F9H (-7) 


7010 


C3 2D 40 


JP 402 DH 



7013 41 42 43 44 'ABCD' 
7017 45 46 47 48 'EFGH' 
7J91B 49 4A 4B 4C 'IJKL' 



701F 4D 4E 4F 50 ' MNOP ' 

7023 51 52 53 54 'QRST' 

7027 55 56 57 58 ' UVWX ' 

702B 59 5A ' YZ' 

Now why would a CALL 01C9H turn into a CD C9 01 ? Of 
course, the CD is the "CALL" portion. The number CDH is 
the machine code for a CALL instruction. This is always 
followed by the two byte address (there for, a CALL 
instruction is always three bytes long). Why does the 
address 01C9H turn into C9 .01? The reason is all sixteen 
bit (2 byte) values are stored "backwards." The two bytes 
in a sixteen bit number are identified as the MSB for Most 
Significant Byte, and LSB for Least Significant Byte. In the 
address 01C9H the MSB is 01 , and the LSB is C9H. Since 
two byte values are stored in reversed order (LSB then 
MSB), the number is stored as C9 01. Is this also true for 
other sixteen bit values? Yes. Note that: 



the 
and 



LD HL.7013 
CALL 0033 



becomes: 
becomes: 



23 13 70 
CD 33 00. 



Now let's learn about a new instruction: DJNZ. 



Alphabet printing program 3 (reading from a table). 



Rom subroutine to display character. 
ROM subroutine to clear the screen. 
Address to return to DOS. 

Clear the screen. 

Get the address of the letter table. 

Number of letters in the alphabet. 

Get the current letter. 
Display it. 

Point to the next letter. 
DEC B, if not zero - repeat. 



Label 


Command Argument 




ORG 


7000H 


DISP 


EQU 


0033H 


CLR 


EQU 


01C9H 


DOS 


EQU 


402DH 


PR0G3 


CALL 


CLR 




LD 


HL.TAB 




LD 


B.26 


LOOP 


LD 


A, (HL) 




CALL 


DISP 




INC 


HL 




DJNZ 


LOOP 




JP 


DOS 


; Data 
TAB 


area 
DEFM 


'ABCDEFG 




END 


PR0G3 



7000 CD C9 01 21 12 70 06 1A 7E CD 33 00 23 10 F9 C3 
7010 2D 40 41 42 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 
7020 4F 50 51 52 53 54 55 56 57 58 59 5A 

The DJNZ is a special instruction, which exists only in 
the Z-80 instruction set (it isn't in the 8080 or 8085 
instruction set). The DJNZ stands for "Decrement B and 
Jump if not zero." The Jump portion of this instruction is 
just like the JR (127 bytes back or 128 bytes forward). 
What is more, it only decrements the B register. If B 
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contains a zero AFTER the decrement, the jump falls 
through (to the next instruction). Otherwise, it jumps to 
the target address. 

One new instruction deserves another! Greet the LDIR 
(Load Direct on Incrementing Register), PUSH, and POP. 
What will the program do? Fill the screen with all of the 
characters from 20H to BFH (the values from 80H to BFH 
are the TRS-80 graphics characters). The program should 
briefly pause in between each "screen fill." 



520)3 3E 20 21 00 3C 11 01 3C 01 00 04 77 ED B0 FE BF 
5210 CA 2D 40 3C CD 1A 52 C3 02 52 F5 21 02 05 2B 7C 
5220 B5 20 FB Fl C9 

Gasp and dismay! I'm supposed to understand THAT!? 
You bet. First, lets trace through two complete iterations 
(excluding the DELAY subroutine). These two "passes" will 
fill the screen with blanks, then with exclamations marks. 



; Screen displ 


ay of characte 


r set 


Program Trace 






ORG 


5200H 




1 PC=5200 A=?? BC=???? DE=???? HL=???? SP=7100 


LD A.20H 


VIDEO 


EQU 


3C00H ;St£ 


rt of Video RAM. 


2 PC=5202 A=20 BC=???? DE=???? HL=???? SP=7100 


LD HL.3C00H 


DELVAL 


EQU 


0500H ;Del 


ay value 


3 PC=5205 A=20 BC=???? DE=???? HL=3C00 SP=7100 


LD DE.3C01H 


DOS 


EQU 


402DH ;D05 


re-entry location. 


4 PC=5208 A=20 BC=???? DE=3C01 HL=3C00 SP=7100 

5 PC=520B A=20 BC=0400 DE=3C01 HL=3C00 SP=7100 


LD BC.400H 
LD (HL),A 


PR0G4 


LD 


A.20H 


First character to save. 


6 PO520C A=20 BC=0400 DE=3C01 HL=3C00 SP=7100 


LDIR 


PR0G4A 


LD 


HL, VIDEO 


First location in Video. 


7 PC=520E A=20 BC=0000 DE=4000 HL=3FFF SP=7100 


CP 0BFH 




LD 


DE.VIDEO+1 


Second location in Video. 


8 PC=5210 A=20 BC=0000 DE=4000 HL=3FFF SP=7100 


JR Z,04 




LD 


BC.400H 


Size of Video RAM 


9 PC=5212 A=20 BC=0000 DE=4000 HL=3FFF SP=7100 


INC A 




LD 


(HL).A 


Save character in Video. 


10 PC=5213 A=21 BC=0000 DE=4000 HL=3FFF SP=7100 


CALL 5225 




LDIR 




Fill rest of Video. 


<Delay routine> 






CP 


0BFH 


Last character? 


11 PC=5216 A=21 BC=0000 DE=4000 HL=3FFF SP=7100 


JP 5202 




JP 


Z.DOS 


If done, exit. 


12 PC=5202 A=21 BC=0000 DE=4000 HL=3FFF SP=7100 


LD HL.3C00H 




INC 


A 


Next character. 


13 PC=5205 A=21 BC=0000 DE=4000 HL=3C00 SP=7100 


LD DE.3C01H 




CALL 


DELAY 


Brief Pause 


14 PC=5208 A=21 BC=0000 DE=3C01 HL=3C00 SP=7100 


LD BC.400H 




JP 


PR0G4A 


Repeat with next character. 


15 PC=520B A=21 BC=0400 DE=3C01 HL=3C00 SP=7100 

16 PC=520C A=21 BC=0400 DE=3C01 HL=3C00 SP=7100 


LD (HL).A 

LDIR 


DELAY 


PUSH 


AF 


Save A register. 


17 PC=520E A=21 BC=0000 DE=4000 HL=3FFF SP=7100 


CP 0BFH 




LD 


HL, DELVAL 


Get delay value. 


18 PC=5210 A=21 BC=0000 DE=4000 HL=3FFF SP=7100 


JR Z,04 


DELI 


DEC 


HL 


One less to count. 


19 PC=5212 A=21 BC=0000 DE=4000 HL=3FFF SP=7100 


INC A 




LD 


A.H 


Get MSB of count. 


20 PC=5213 A=22 BC=0000 DE=4000 HL=3FFF SP=7100 


CALL 5225 




OR 


L 


Mash the MSB and LSB together. 


<Delay routine> 






JR 


NZ.DEL1 


,If both aren't 0, repeat. 


21 PC=5216 A=22 BC=0000 DE=4000 HL=3FFF SP=7100 


JP 5202 




POP 


AF 


, Done, get A back. 


22 PC=5202 A=22 BC=0000 DE=4000 HL=3FFF SP=7100 


LD HL.3C00H 




RET 






And so on. . . 





END 



PR0G4 



continued on next page 



DISCOUNT 



TRS 80™ Model I & Iff 

External Mini Disk Drives 



CompuAdd Corp. 

13010 Research Blvd. 

Suite 218 

Austin, Texas 78750 

1-(512)-250-1489 



ORDER NOW 
TOLL FREE 



• Tandon TM lOO-l Bare Drive SI 99 

5'A". single sided, 40trk, 48tpi. Capable of single or double density Free 

recording making it fully compatible with TRS80™ Model I or III. Shipping 

• Tandon TM lOO-l w/chassis & pwr supply S249 

Fully assembled silver chassis with external card edge connector for Free 

easy cable installation. Shipping 

• Tandon TM 160-2 Bare Drive S289 

5'A", double sided, 40trk, 48tpi. Capable of single or double density Free 

recording making it fully compatible with TRS80™ Model I or III. Shipping 

• Tandon TM 100-2 w/chassis & pwr supply S329 

Fully assembled silver chassis with external card edge connector for Free 

easy cable installation. Shipping 



How to order — Order by calling CompuAdd Toll Free on I-80O-53I-5255 {if outside of Texas) or 1-800-252-9146 {if in Texas). Ask for extension 81 1. You 
can also order by mail. Orders may be charged to a Master Card or Visa account or paid by Cashier's Check or Money Order. Sorry, but we cannot 
accept personal checks. We pay shipping and handling on orders delivered in continental U.S.A. Add 5% sales tax if Texas resident. 



All hardware has a 1 20 Day Limited Warranty. 



TRS 80 is a Trademark of Tandy Corp. 
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The numbers to the left are only for reference purposes. 
What follows is a description of what each statement is 
doing. Since this program uses the PC, SP, BC, DE, HL, and 
A registers, the trace includes each register. In addition, 
the assembly language instruction is shown on the right. 

1) Get the first character to display (a blank) in A. 

2) Get the first video location in HL (16 bit value). 

3) Get the second video location in DE. 

4) Get the size of VIDEO RAM in BC. 

5) Put the character into the start of Video Ram 
(contents of HL) 

6) Fill Video Ram with the Character. 

What? One instruction can do that? Yes. The LDIR instruc- 
tion uses the HL, DE, and BC registers all at once. 
Remember, LDIR stands for Load on Incrementing Register. 
How does it work? HL contains the Source address, DE 
contains the Destination address, and BC contains the 
count. The instruction causes the byte pointed to by HL to 
be moved into the address pointed to by DE. Then, HL and 
DE are incremented, and BC is decremented. If BC does 
not equal zero, the process is repeated. When BC equals 
0, execution continues with the next instruction. So, lets 
say we wanted to copy 20 bytes from 6000H to 7000H. 
The action of LDIR would be: 



30 31 32 33 34 35 36 37 38 39 3A 3B 3C 3D 3E 3F 
6010 40 41 42 43 



7000 00 00 00 


7010 00 00 00 


HL DE BC 


6000 7000 0014 


6001 7001 0013 


6002 7002 0012 


6003 7003 0011 


6004 7004 0010 


6005 7005 000F 


6006 7006 000E 


6007 7007 000D 


6008 7008 000C 


6009 7009 000B 


600A 700A 000A 


600B 700B 0009 


600C 700C 0008 


600D 700D 0007 


600E 700E 0006 


600F 700F 0005 


6010 7010 0004 


6011 7011 0003 


6012 7012 0002 


6013 7013 0001 


6014 7014 0000 



This table contains the 
contents of the 3 registers 
involved in the LDIR instruction. 
The changes shown illustrate 
what happens during the execution 
of a SINGLE LDIR instruction. 



30 31 32 33 34 35 36 37 38 39 3A 3B 3C 3D 3E 3F 

6010 40 41 42 43 

7000 30 31 32 33 34 35 36 37 38 39 3A 3B 3C 3D 3E 3F 

7010 40 41 42 43 



Now what would happen if we loaded HL with 7000H, DE 
with 7001 H, and BC with 14H? Well, LDIR would move 
from 7000H to 7001 H, then from 7001 H to 7002H, then 
from 7002H to 7003H, etc. So, memory would then 
contain: 



7000 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 
7010 30 30 30 30 

HL DE BC 

7000 7001 0014 

7001 7002 0013 

7002 7003 0012 

7003 7004 0011 

7004 7005 0010 
etc. 

When used in this way, the LDIR can quickly "fill" a 
memory area with a specific byte. Whatever byte is in the 
address pointed to by HL at the start of execution will be 
copied into all of the addresses following (up to DE+BC). 
Pretty slick, isn't it? Anyway, back to our program trace. 

7) Is the value in A the last character? (If so, set the zero 
flag). 

8) If we are up to the last character, skip ahead to 
DONE. 

9) Since we're not done, increment A so that it points to 
the next character. 

10) Call the delay routine so that we can see what's on 
the screen. 

11) Let's do it all again. 

1 2) Get the first Video location. 

13) And the second video location. 

14) Count (size of video). 

1 5) Save the current character in the first location. 

16) Fill-er-up! 

17) Are we done yet? (No). 
And so on. 

Now, ifs time to examine the Delay routine. There are 
two new instructions in this subroutine: PUSH and POP. 
Both PUSH and POP make use of the SP register. SP stands 
for "Stack Pointer." It looks like it's time to discuss the 
mysterious "Stack." A stack is a special data structure used 
in computers. (A Data Structure is a "system" of dealing 
with information that is formally described, and highly 
consistent.) A stack is actually a table or list of variables. 
Generally, you can access (read to or write from) any 
variable in this list (also known as an array). In the case of a 
stack, you can only access one end of the list. Whenever 
you add something to the stack, it "Pushes" everything 
down. Since the first thing added to the stack is always at 
the bottom of the list, it is the last thing to be accessed 
when things are taken off of the stack. This data structure is 
also known as a LIFO — an acronym for "Last In/First Out." 
Adding something to a stack is known as "PUSHing," and 
taking something off of a stack is known as "POPing." All 
values that are PUSHed or POPed must be sixteen bits 
long. Any double register can be PUSHed or POPed (AF, 
BC, DE, HL, IX, IY) except the SP and the PC. Since the SP 
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contains the current address of the stack, it would make no 
sense to save the address of the stack IN the stack. In the 
case of the PC, it is pushed onto the stack every time a 
CALL instruction is executed, and poped off of the stack 
whenever a RET instruction is executed. 

Where is the stack? It could be anywhere in free RAM. I 
haven't included the necessary instructions to create and 
restore stacks yet so that I could keep the programs as 
simple as possible. Generally, the DOS or BASIC will have 
reserved a Stack with at least 10 free bytes (enough for 5 
PUSHES and/or CALLs). Does that mean a program with 
more then 5 CALLS can't run? Not necessarily. If the CALLs 
are all one right after the other (without any RETs in 
between), then it DOES mean that the program may not 
work. In the case of the above programs, the value of the 
SP is actually fictitious Since we didn't actually set the 
value of the SP (and can't know what it is), I set it for an 
area of unused RAM (where we might very well have 
placed it). 

I'm afraid that the description of the DELAY program will 
have to wait until next month. In the mean time, you might 
want to experiment with different delay values. Try a value 
like 5000H instead of 500H. For those daring souls, I will 
pose an exercise. Re-write the program so that it displays 
all of the characters in reverse order (starting with the 
graphic block BFH, and ending with a blank). The only hint 
I will offer is that you should use the LDDR instruction 
(Load on Decrementing Register). It works just like LDIR, 
except that HL and DE are decremented after each move. 
Good Luck! 

Corrections 

One final order of business. I just received my copy of 
Computronics with Assembly Language # 6. There are 
several mistakes in it that need correction (some my fault, 
some not). First, an excuse. I have been writing in 8080 
assembly language recently, and I see that I confused Z- 
80 and 8080 mnemonics several times (the Z-80 is a super- 
set of the 8080 machine language). On page 54, I used the 
command MNEMONIC JNZ. This is the 8080 equivalent of 
the Z-80: 



Label Command Argument 

JP NZ, Address. 



Also on this page, there is the mysterious LDPPP instruction! 
Don't ask me what it does, since I have no idea. It was 
supposed to be a LD. (Maybe it stands for "Load Direct on 
Positive Phase Processing?!") Anyway, there is no such 
instruction on the 8080, 8085, Z-80, or any other CPU I 
know of. Apologies to all concerned. 

Joseph Rosenman 
35-91 161st Street 
Flushing, NY 11358 ■ 










THE LNW80. 

ONCE YOU FIND IT, THE REST IS EASY. 

You've heard about the LNW80. It's the new 
microcomputer from LNW Research, and it works 
harder than even the TRS80. But finding one 
hasn't been that easy. Now, Data Resources 
brings you another first: a ready su pply of LN W80s. 

The LNW80 lets your computer perform like the 
world's most sophisticated microcomputers. Its 
4MHz, Z80A CPU characteristics more than double 
your computer's original processing speed. It 
comes complete with double density controller, 
color and b/w, high resolution graphics features, 
standard R5232 Port and 48K Ram. And the 
LNW80 is fully compatible with all TRS80 Model I 
software, giving you the widest available software 
base to go with your new performance capa- 
bilities. 



Processor 

Level II Basic Interp. 

TRS80 Model 1 Level II Compatible 

48K Bytes Ram 

Floppy Disk Controller 

Serial RS232 Port 

24 x 80 Characters 

Upper and Lower Case 

Reverse Video 

Keyboard 

Numeric Key Pad 

B/W Graphics, 128x48 

Hi-Resolution B/W Graphics, 480 x 1 92 

Hi-Resolution Color Graphics (RGB), 

384 x 192 in 8 Colors 
Warranty 

Compare these features: 
Now compare our price • just $1495.00, in- 
cluding a free monitor with the first fifty orders 
received. All orders are shipped free. 
At the same time, take advantage of another price 
special: 

Verbatim 525.01 5V2" diskettes 
$25.95 per box of 10 
plus a free library case* with each of our first 

200 Orders '(minimum order 2 boxes). 

Call toll free to order 800/525-8394 or 800/525-8419 
Visa, MasterCard checks and money orders accepted. 





TRS-80 


LNW80 


Model III 


4.0 MHZ 


2.0 MHZ 


yes 


Level III 


yes 


no 


yes 


no 


sng/dbl 


sng/dbl 


yes 


yes 


yes 


no 


yes 


yes 


yes 


no 


63 Key 


53 Key 


yes 


yes 


yes 


yes 


yes 


no 


yes 


no 


6 Months 


90 Days 



Data Resources 
304 Elati Street 
Denver, Colorado 80223 
(303)698-1263 
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PHONE BILL SORTING PROGRAM 

Dan Keen and Dave Dischert 



Some people are involved in many different things. 
Recently we met a man who owned seven small companies 
which he operated out of one office. 

At the end of the month when the telephone bill 
arrived, each long distance call had to be checked to see 
which company that amount should be billed to. Each 
number had to be put in a separate column and then each 
list was totalled. 

A log book could be kept, but this was a pain, and it 
would still require someone to go through it manually and 
tally all amounts for each company. 

Since most of the long distance calls were to the same 
numbers each month, we created a program which allows 
him to set up company files and store the numbers that are 
frequently called by each company. 

When the monthly bill comes in, the secretary simply 
goes down the list and enters each phone number and its 
date, time (number of minutes), and amount. 

She can then review the list in the computer and check 
it for any typographical errors. 

When it is satisfactory, the computer will sort the 
entries, printing out a list for each company, including the 
date, time, phone number, amount and grand total for that 
company. 

A miscellaneous list is created and totalled to show all 
the numbers which appeared on the phone bill but which 
were not on file with any of the companies. 

OVERVIEW 

This program allows you to store all regularly called 
phone numbers into separate files, each file representing a 
particular business or use. Several files can be set up for 
different businesses, or perhaps two files can be created, 
one to represent business calls, the other for personal calls 
made from the same telephone. 

HOW TO USE THE PROGRAM 

The top of the screen will show all the current company 
files on the diskette which you have created. Below that 
the MAIN MENU will be displayed. The video display 
would look like this assuming there have been two files 
created so far, one for a campground business and the 
other for the owner's personal calls. 

THE FOLLOWING FILES ARE ON THIS DISK: 

1 CAMP 

2 PERSONAL 



<A>DD NUMBERS 
<S>EARCH/EDIT/DELETE FILE 
<R>E RUN PHONE BILL 



<C> ADD COMPANY LIST 
<E>NTER PHONE BILL 
<K>ILL OLD BILL 



An invisible option, <Q>uit is not displayed, but will 
respond if a "Q" is typed. This will cause the program to 
end and return you to BASIC READY. 



<C> ADD COMPANY LIST 

This is the very first option you must choose when you 
initially run the program. You are prompted with: 
ENTER COMPANY NAME (OR JUST HIT <ENTER> KEY TO 
QUIT) 

If the name conflicts with one previously entered, it will 
indicate that there is a conflict and the program will not 
accept your input. 

It will again prompt you with ENTER COMPANY, and 
you can keep going. When you are finished, simply hit the 
<ENTER> key in response to entering a name. The 
program allows up to 9 companies to be added. They do 
not have to be added all at once. This option can be 
selected any time you wish to add another company. 

The computer will automatically take the company name 
you type in and make it equal a filename which is in the 
correct form that the computer requires to enable it to 
store that file on diskette. There must be eight characters. 
If you enter more than eight, only the first eight (starting 
from the left) will be used. If you enter less than eight, the 
remainder will have asterisks tacked onto it. An extension 
of /FIL representing "file" is concatinated. Do not use 
numbers or spaces when entering a company name. For 
example, let's say you typed in a company named REPAIR. 
The filename on the diskette will appear as REPAIR**/FIL. 

<A>DD NUMBERS 

All the company files currently in storage (created by 
using the <C> ADD COMPANY option) are displayed on 
the screen alpng with a number beside them (1, 2, 3, etc.). 
You are prompted with ENTER COMPANY NUMBER TO 
WORK ON. Type the corresponding number. As with many 
inputs in this program, only one keystroke is necessary 
(you don't have to hit <ENTER> after you type the 
number). This helps speed you through the program. 

ENTER PHONE NUMBER (HIT <ENTER> TO QUIT). 
Type in a phone number. If you type in the area code here, 
then you will have to also type in the area codes when you 
enter each phone number on your monthly bill, or the 
computer will not find a match. So get in the habit of using 
area codes either all of the time, or none of the time. You 
could choose just to use area codes on numbers which do 
not have the same code as you. 

You can continue to enter numbers. To quit, simply 
respond to the ENTER NUMBER prompt by hitting the 
<ENTER> key. 

Enter phone numbers in the form of 609-886-1511, 
using hypens between number sections. 

<S>EARCH/EDIT/DELETE FILES 

Selecting this option results in another menu, EDIT 
MENU. Options are: 

<D>ELETE A COMPANY NAME 

<P>HONE NUMBER FILE (EDIT OR CHANCE INFORMA- 
TION IN A FILE) 
<Q>UIT 



46 November 1982 



mMRJTRQWCSi 



If you choose the <D>ELETE: The company file names 
and consecutive numbers are displayed! ENTER COMPANY 
NUMBER YOU WANT TO DELETE OR <Q>UIT. In case 
you want to bail out and not erase anything, you can 
always hit the "Q". This whole program is loaded with 
these "Q"uit bail outs at critical points. Finally, you are 
quizzed ARE YOU SURE YOU WANT TO DELETE? (Y/N). 
Enter a Y for yes, N for no. Once erased, there is no way to 
recover any information in that company file. 

If you choose the <P>HONE NUMBER EDIT: ENTER 
COMPANY NUMBER YOU WANT TO WORK ON. A list is 
displayed. 

The top of the screen will show you instructions as to 
available selections at this time: 

SELECT LETTER: <A>DVANCE, <B>ACKUP, <E>DIT, 
<D>ELETE, <Q>UIT 

Picture in your mind a long list of phone numbers. The 
TV screen is a window, allowing you to view one number 
at a time. To look ahead to the next number, hit the letter 
"A". To go back to the last number, "B". If you wish to 
delete the number currently displayed, "D". If you want to 
change the number, hit "E". 

<E>NTER PHONE BILL 

ENTER DATE, PHONE NUMBER, TIME, COST. Do not 
enter a dollar sign for COST, simply the amount. Just go 
down the entire phone bill, entering the information for 
each number. Entering Area Code is optional. When you 
are done, just hit <ENTER> when asked DATE. 

NOW TO REVIEW THE LIST. DO YOU WANT TO VIEW 
LIST ON: 
<P>RINTER 
<V>IDEO 

<S>KIP TO SORTING BILL (Note item number to edit if 
needed.) 

At this time you may wish to look over the numbers you 
just typed in to see if you made any errors. If you choose P 
or V, the list is shown, then the screen displays: 

HIT <ENTER> TO SORT, <Q>UIT, <E>DIT FILE 

If all looks well, then just hit <ENTER> and the 
computer will begin to sort out the phone numbers to their 
respective companies. Choosing the <S>KIP TO SORT 
option as previously mentioned also brings you to this 
point. 

If you choose <E>DIT, ENTER FILE NUMBER OF LINE 
TO EDIT OR ENTER A ZERO TO QUIT will be displayed. 
The four lines of information (that is, date, number, time, 
amount) are shown. Choose a number from 1 to 4 
representing the line you wish to change. The old value will 
be shown and you will be asked to enter the new value. 

SORT. The sort routine will now print out on the line 
printer each company name and all the phone numbers 
and costs associated with that company. If there are any 
numbers on the list you entered that are not on file, then 
they will be placed in under a MISCELLANEOUS heading 
and their cost totalled. 

If there is more than one company file that contains the 
same phone number, the sorted list will bill that phone 
number to the first company it encounters. For example, if 



company file number 1 and number 3 both contain the 
number 123-1234, then number 1 will get the bill attributed 
to company 1. 

A phone bill file is created, saving all these numbers and 
information you just entered. You can get another printout 
any time you wish by selecting the <R>ERUN PHONE 
BILL OPTION. 

Before you <E>NTER another phone bill, you MUST use 
the <K>ILL OLD BILL option. This will erase the bill and 
clear the way for you to enter a new one. If you fail to do 
this, it is possible for phone numbers in last month's bill to 
be included erroneously into this month's bill. That would 
happen if last month's phone list was longer than this 
month's. So be sure to Kill before entering a new phone 
bill. 

The <K>ILL option will prompt you with ARE YOU 
SURE? (Y/N). This gives you a chance to bail out at the last 
minute. 



PROGRAM LISTING 



10 REM 



MODEL I & III VERSION 
PHONE BILL PROGRAM 
CREATED 08/06/81 
UPDATED 11/08/81 

20 CLS : CLEAR 15000 : DIM CO$(50) ,F1$(250),PN$(250) ,M0$(12) : 

M$=" $$////////.//#" : Ml$="//////////r ■• M2$='W : GOSUB 1000 : 

GOSUB 1020 

30 CLS : CLOSE : GOSUB 1030 : A$(0)="<A>DD NUMBERS" : 

A$(1)="<C> ADD COMPANY LIST" : A$(2)="<S>EARCH/EDIT/DELETE 

FILE" : A$(3)="<E>NTER PHONE BILL" : A$(4)="<R>E RUN PHONE 

BILL" : A$(5)="<K>ILL OLD BILL" : C=0 

40 FOR B=704 TO 959 STEP 32 : PRINT §B,A$(C); : C=C+1: NEXT : 

C=0 : A=672 : IF D$( 1)="" THEN GOSUB 5100 

50 A$=INKEY$: IF A$="A" THEN 100 ELSE IF A$="C" THEN 200 ELSE 

IF A$="S" THEN 300 ELSE IF A$="E" THEN 500 ELSE IF A$="R" 

THEN 600 ELSE IF A$="K" THEN 1300 ELSE IF A$="Q" THEN CLOSE : 

END 

60 A=A+32 : PRINT @A, STRING! (25," "); : FOR X=l TO 50 : NEXT 

: PRINT gA,A$(C); : C=C+1 : FOR X=l TO 50 : NEXT : IF A$ o"" 

THEN TM=0 

70 IFC=6 THEN A=672 : C=0 

80 TM=TM+1 : IF TM=500 THEN GOSUB850 : GOSUB 1030 

90 GOTO 50 

100 REM 

ADD NUMBERS 

110 CLS : PRINT TAB(23)"ADD PHONE NUMBERS" : PRINT 

STRING$(64,"-") : GOSUB 1030 : GOSUB 1040 

120 PH$="" : LINEINPUT"ENTER PHONE NUMBER (HIT <ENTER> TO 

QUIT) ";PH$ 

130 IF PH$="" THEN CLOSE : RUN 

140 FOR DE=1 TO L0F(2) : GET 2,DE : IF LEFT$(F1$, l)o"»" THEN 

NEXT 

150 RSET F1$=PH$ : PUT 2,DE : GOTO 120 

200 REM 

ADD COMPANIES 

210 GOSUB 1010 : CLS 
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220 C0$="" : LINEINPUT" ENTER COMPANY NAME (HIT <ENTER> TO 

QUIT) ";CO$ 

230 IF CO$="" THEN CLOSE : RUN 

240 FOR DE=1 TO NF : IF LEFT$(CO$(DE) ,LEN(CO$))=CO$ THEN 

PRINFNAME CONFLICTS WITH AN EXISTING FILE " : GOTO 220 ELSE 

NEXT 

250 CN$=CO$+STRING$(10,"*") 

260 FI$=LEFT$(CN$,8)+"/FIL" 

270 FOR DE=1 TO LOF(l) : IF LEFT$(F$(0) , 1)<>"*" THEN NEXT 

280 LSET F$(l)=CO$ : LSET F$(2)=FI$ : PUT 1 , DE : NF=NF+1 : 

CO$(NF)=F$(0) : GOTO 220 

300 REM 

SEARCH EDIT 

310 CLS : PRINT TAB(25)"EDIT FILES" : PRINT §256, "<D>ELETE 

COMPANY NAME 

<P>HONE NUMBER FILE EDIT 

<Q>UIT" : GOSUB900 

320 IF IK$="P" THEN 400 ELSE IF IK$="Q" THEN 30 ELSE IF 

IK$<>"D" THEN 310 

330 GOSUB 1030 ; PRINT TAB (15) "ENTER COMPANY TO DELETE 'Q' TO 

QUIT "; : GOSUB 910 : IF IK$="Q" THEN CLOSE : GOTO 30 ELSE 

GOSUB 1050 : IF IK=0 THEN 330 

340 GOSUB 1010 

350 PRINT'ARE YOU SURE YOU WANT TO DELETE THIS FILE? (Y/N) " 

: GOSUB 900 

360 IF IK$="Y" THEN KILL FI$ : CO$(IK)="*" : LSET 

F$(0)=STRING$(42,"*") : PUT l,CO(IK) : CLOSE : RUN ELSE CLOSE 

RUN 

400 REM 

EDIT PHONE NUMBERS 

410 GOSUB 1030 : GOSUB 1040 : CLS 

420 DE=1 : PRINFSELECT A LETTER : <A>DVANCE, <B>ACKUP, 

<E>DIT, <D>ELETE, <Q>UIT" : GOSUB 1060 

430 GOSUB 910 : IF IK$="A" THEN GOSUB 440 ELSE IF IK$="B" 

THEN 450 ELSE IF IK$="D" THEN GOSUB 490 ELSE IF IK$="E" THEN 

GOSUB 480 ELSE IF IK$="Q" THEN CLOSE : GOTO 300 ELSE 430 

440 IF DE>L0F(2) THEN 430 ELSE DE=DE+1 : GET 2,DE : GOSUB 460 

: GOTO 430 

450 IF DE<3 THEN 430 ELSE DE=DE-1 : GET 2 , DE : GOSUB 460 : 

GOTO 430 

460 PRINT gl60,CHR$(31); : PRINT 6256, "PHONE NUMBER #";DE-1;" 

";F1$ : RETURN 
480 INPUT'ENTER NEW NUMBER ";NE$ : RSET F1$=NE$ : PUT 2 , DE : 
DE=DE-1 : RETURN 

490 LSET Fl$="** DELETE **" : PUT 2, DE : DE=DE-1 : RETURN 
500 REM 

ENTER PHONE BILL 

510 X=0 : GOSUB 770 : CLS : PRINFHIT <ENTER> FOR 'DATE' TO 

QUIT" : PRINT STRINGS (64, "=") 

520 PRINT 6256,; : O$(0)="" : FOR DE=0TO3 : PRINT D$(DE+1), 

: LINEINPU TO$(DE) : IF O$(0)="" THEN CLOSE : GOTO 600 ELSE 

NEXT : X=X+1 : PRINT @256 , ;CHR$(31) ; 

530 LSET F2$(0)=O$(0) : RSET F2$(l)=0$(l) : RSET F2$(2)=0$(2) 

: LSET F2$(3)=MKS$(VAL(0$(3))) : PUT3.X : GOTO 520 

600 REM 

COMPUTES PHONE BILLS (SORT) 

605 GOSUB 770 



610 X1=0 : CLS : PRINT "NOW TO REVIEW THE LIST DO YOU WANT 
TO VIEW LIST ON : 

<P>RINTER 

<V>IDEO 

<S>KIP TO SORTING BILL 

(NOTE THE ITEM NUMBER TO EDIT IF NEEDED)" : 
GOSUB 910 ELSE CLOSE : GOTO 30 

620 IF IK$="P" THEN GOSUB 690 : GOTO 635 ELSE IF IK$="S" 
THEN 640 ELSE IF IK$<>"V" THEN 610 

630 GOSUB 1210 : FOR DE=1 TO L0F(3) : GET3.DE : GOSUB 1220 : 
NEXT 

635 Q$="" : PRINFHIT <ENTER> TO SORT, <Q> TO QUIT, <E> TO 
EDIT FILE" : GOSUB 910 : IF IK$="E" THEN 700 ELSE IF IK$="Q" 
THEN CLOSE : GOTO 30 ELSE IF IK$=CHR$(13) THEN 640 ELSE 
GOTO 635 

640 CLS : PRINT" STANDBY. SORTING YOUR NUMBERS" : X=L0F(3) : 
FOR DE=1 TO X : GET 3,DE : PN$(DE)=F2$(1) : NEXT 
650 FOR DE=2 TO NF : FI$=RIGHT$(CO$(DE) , 12) : CLOSE 2 : GT=0 
: LPRINT LEFT$(CO$(DE),30) : GOSUB 1110 : GOSUB 750 
660 FOR DL=1 TO L0F(2) : GET 2,DL : F1$(DL)=F1$ : NEXT 
670 FOR D=l TO X : FOR Dl=l TO L0F(2) : IF LEN(F1$(D1))>1 
THEN IF F1$(D1)=RIGHT$(PN$(D),LEN(F1$(D1))) THEN GET 3,D 
: F2=CVS(F2$(3)) : LPRINT F2$(0) ,F2$(1) , F2$(2) .USING M$;F2 
: PN$(D)=STRING$(12,32) : GT=GT+F2 : D1=0 
680 NEXT D1,D : GOSUB 1270 : GT=0 : NEXT DE 
685 LPRINT" " : LPRINT"MISCELLANEOUS NUMBERS" : LPRINT" " : 
GOSUB 1110 : FOR DE=1 TO X : IF RIGHT$(PN$(DE) , 1)=" " THEN 
687 ELSE GET3.DE : F2=CVS(F2$(3)) : GT=GT+F2 : GOSUB 1260 
687 NEXT : CLOSE : GOSUB 1270 : GOTO 30 
690 GOSUB 1240 : FOR DE=1 TO L0F(3) : GET3.DE : GOSUB 1250 : 
NEXT : G0T0635 
700 REM 

EDIT BILL FILE 

710 INPUFENTER FILE NUMBER TO EDIT TO QUIT" ;Q : IF Q=0 

THEN 635 

720 GET 3.Q : GOSUB 1120 : PRINT : PRINT : PRINFENTER NUMBER 

TO EDIT TO QUIT" : GOSUB 910 : IK=VAL(IK$) : IF IK>4 THEN 

720 ELSE IF IK=0 THEN 635 

725 IK=IK-1 : PRINT D$(IK+1);" OLD VALUE IS ";F2$(IK); : 

INPUT" ENTER NEW VALUE ";NV$ : IF IK=0 THEN LSET F2$(0)=NV$ 

ELSE IF IK=1 OR IK=2 THEN RSET F2$(IK)=NV$ ELSE IF IK=3 THEN 

LSET F2$(3)=MKS$(VAL(NV$)) 

730 PUT 3.Q : GOSUB 1120 : PRINFIS THIS CORRECT Y/N " : 

GOSUB 910 : IF IK$="Y" THEN 710 ELSE GOTO 720 

740 REM 

OPEN COMPANY PHONE LIST FILE 

750 0PEN"R",2,FI$ : FIELD 2, 12ASF1J : RETURN 

760 REM OPEN FILE FOR BILL 

770 0PEN"R",3,"PH0NE/BIL" : FIELD 3,5 AS F2$(0),12 AS F2$(l), 

3 AS F2$(2),4 AS F2$(3) : RETURN 

800 REM 

ENTER COMPANY NAMES 

810 CLS : CO$="" : PRINT g320,; : INPUT" ENTER COMPANY NAME 

(HIT <ENTER> IF DONE) ";CO$ : IF LEN(C0$)<8 THEN 
CN$=CO$+STRING$(10,"*") 

continued on page 53 
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SOFTWARE REVIEWS 



Super Utility Plus by Kim Watt 
Joseph Rosenman 



There are many utility programs for the Models 1 and 3. 
Quite a few of them are useful, quality programs. Even in 
this crowded market, Super Utility has made a well 
deserved name for itself. First, the facts: 

Super Utility Plus 

by Kim Watt 

Breeze/QSD Inc. 

11500 Stemmons Expwy., Suite 125 

Dallas, Texas 75229 

System: Model 1 or Model 3 
RAM: 48K required 
Disks: At least 1 disk required. 
Language: Z-80 Machine Language. 

Super Utility is a powerful and comprehensive disk 
access and modification utility. What is a disk utility? It is a 
program that permits the diskette to be analyzed, displayed, 
and altered. Many users of the the NEWDOS80 disk 
operating system (by Apparat) might be familiar with the 
SUPERZAP program. SUPERZAP is a disk utility that is 
included with NEWDOS80. I can say from a great deal of 
personal experience that Superzap is an extremely useful 
program. It has one distinct advantage over Super Utility: it 
is a CMD file. With that one exception, Super Utility is 
overflowing with extra features. I guess the best way to 
understand the scope of Super Utility is to examine the 
multiple Menus that it uses. 





Main 


Menu 


1) Disk Zap 




6) Tape Utilities 


2) Disk Purge 




7) Memory Utilities 


3) Disk Format 




8) File Utilities 


4) Disk Backup 




9) Configure System 


5) Disk Repair 




0) Exit Program 



Each menu selection in turn calls up another menu. The 
menu "topics" are arranged in a logical fashion, and pretty 
much cover the gamut of utility functions. The next step in 
describing Super Utility is to describe the sub-menu 
details. 

1) Disk Zap 

1) Display sectors: Display any disk sector in Hex and 
ASCII. 

2) Verify sectors: Make sure the data in the sector is 
correct. 

3) Compare sectors: Determine whether any two sectors 
match. 

4) Copy sectors (on the same disk or on any two disks). 

5) Copy sector Data: This copy is similar to Copy 
Sectors, but the size is specified as a byte count rather 
then a sector count. 

6) Zero sectors. 

7) Reverse sector data: Byte 256 becomes byte 1, byte 
255 becomes byte 2, etc. 

8) Exchange sectors (swap a specific number of sectors). 



9) String search: will search the disk for any length ASCII 
string or byte list (replacement is optional). 

0) Sector search: Search for duplicate sectors. 

A) Read ID address marks: Display track ID information. 

B) Alter data address marks. 

Note that the Display Sector option also allows you to 
modify the sector contents, and write it back to the disk. 

2) Disk Purge 

1) Kill selected files 

2) Kill by category: by extension or attribute. 

3) Remove system files. 

4) Remove all passwords. 

5) Disk Directory: with all of the trimmings. 

6) Zero unused entries: cleans up unallocated FPDEs. 

7) Zero unused granules: fills all unused sectors with 
00s. 

8) Change disk name. 

9) Change file parameters: a fancy RENAME function. 

0) Check directory: verifies that there are no errors. 

3) Disk Format 

1) Standard Format 

2) Special Format: Allows you to custom configure the 
formatting. 

3) Format without erase: will "clean up" the inter-sector 
gaps. 

4) Build Format track (in memory). 

5) Write Format track (from memory). 

6) Software bulk erase: Wipe out all information from 
the diskette. 

4) Disk Backup 

1) Standard Disk Backup. 

2) Special Disk Backup: Analyze a disk, then duplicate. 

5) Disk Repair 

1) Repair GAT sector. 

2) Repair HIT sector. 

3) Repair BOOT sector. 

4) Read protect directory (read protection is a quick way 
to locate the directory in the TRSDOS compatible DOSes). 

5) Un-read protect directory. 

6) Recover killed files (as long as it wasn't killed by 
TRSDOS). 

7) Move Directory (to any unallocated track). 

8) Display Directory. 

9) Check directory (thorough directory test). 

0) Clear unused entries: zero out all unused FPDEs. 



6) Tape Utilities 



1) Read Tape. 

2) Write Tape. 

3) Verify Tape. 

4) Copy Tape. 
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7) Memory Utilities 

1) Display memory. 

2) Move memory. 

3) Exchange memory. 

4) Compare memory: byte by byte comparison. 

5) Fill memory. 

6) Reverse memory: First byte becomes last, etc. 

7) Test memory: Tests a range of memory with every 
possible bit pattern. 

8) Jump to memory: transfers execution to a memory 
location. 

9) String search: Search memory for an ASCII string or 
byte pattern. 

0) Input byte from port. 

A) Output byte to port. 

B) Memory to sectors: dump memory to disk sectors. 

C) Sectors to memory. 

D) Memory to track (entire track). 

E) Track to memory (reads all sectors and inter-sector 
gaps). 

8) File utilities 

1) Display file sectors. 

2) Compare files. 

3) Copy files: will copy a specified group of files all at 
once. 

4) Disk Directory: provides a file oriented disk directory. 

5) Free space: gives a summary of all space available on 
all drives. 

6) Offset file: allows a file to be modified so that it will 
load at a different address. 

7) File locations: provides a complete description of all 
files on a disk. 

8) Drive status. 

9) Sector allocation: Will determine what file is located 
at any given track and sector. 

0) Build a file: pre-allocate a file on disk. 

A) Clear a file: zero out all data sectors on a file. 

B) Disk allocations: display allocation status for each 
track. 

C) Compute hash code (for any filename). 

D) Compute passwords: will encode or decode any 
password. 

9) Configure System 

Configuration can be "hard" or "soft." In "soft" configu- 
ration, the configuration table is altered. "Hard" configure 
requires that the Super Utility Plus disk program be 
zapped. This section of Super Utility is VERY VERY com- 
plicated. You can custom configure: 

1) DOS type 

2) "Real" track count 

3) "Relative" track count 

4) Directory location 

5) Stepping rate 

6) Initial drive delay 

7) Software write protect 

8) Disk density 

9) Real track/relative track relationship 

10) Track density 



11) Starting sector value 

12) Data Address Mark (DAM) 

13) Hi speed mod (Y/N) 

14) Tie printer to display (Y/N) 

15) Define high speed activate code 

16) Define high speed deactivate code 

17) Printer graphics (Y/N) 

18) Lowercase (Y/N) 

19) Epson MX-80 (Y/N) 

20) Parallel (Y/N) 

21) Line Feeds (Y/N) 

0) Exit Super Utility 

Super Utility doesn't require a system disk to be in drive 
while it is running. When you are ready to exit Super 
Utility, you need to replace the system disk. 

As you can see, Super Utility covers a very wide range of 
applications. What's more, it works! This is a very powerful 
and useful program. What would I suggest if Kim Watt 
asked me "How to improve Super Utility?" 

1) Re-write the Configuration section so that it is clearer. 

2) Permit configuration to be "hard" saved to disk 
without zapping. 

3) Modify the "Special Copy" command so that "strange" 
information can be displayed/acted upon. 

4) Permit the Special copy function to save the disk 
parameters and read them back. 

5) Provide Super Utility as a CMD file (I know they 
won't, since CMD files are to easy to copy). 

6) Use a larger print in the instructions. 

By the way, the instructions are quite comprehensive. 
The program includes a 42 page instruction manual. What 
is more, there is a large section on particular systems 
(Model 1 or 3, NEWDOS80, DOSPLUS, LDOS, TRSDOS, 
etc.). 

As you might have guessed by now, I believe that this is 
a very useful program. Since it greatly increases the power 
of your TRS-80, "no system should be without it" This is 
probably the best program of its type, and is well worth 
having. 

Joseph Rosenman 
35-91 161 Street 
Flushing, NY 11358 ■ 

THE CARDWRITER 

continued from page 41 

320 LINE INPUT TM$ 

330 PRINT: PRINT" ENTER YOUR OPINION:" 

340 PRINPWAS REALLY... 

1- -EXCELLENT 

2- -QUITE GOOD 

3- -GOOD 

4- -ONLY FAIR 

5- -PRETTY BAD 

6- -TERRIBLE" 
350 INPUT OP 
360 PRINT: PRINT'ENTER YOUR COMMENT, 

JUST <ENTER> IS NO COMMENT, 

TO ADD A LINE USE DOWN ARROW, 

4 LINES MAXIMUM:" 

continued on page 52 
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Attention 

BARGAIN HUNTERS 

Receive Hundreds of Classified Ads 
Like These Every Month 



HARD DISK DRIVE Diablo Mod 31 
1 2 MByte std density Includes 
power supp and cable, rack mount 
slides amd manual Excellent 

\1601 



condition S4S0 



-Elmer) 
core, front 



vtandard P> he l0teg ral ° 
^f^HIEATHIlIT H-11/DEC LSI 



St 
2« 



ncninnii ..... 

ivrtern, 32K Byte storage, reader 1 
punch, video terminal, complete 
software. Co»t S4S00 auembled, 
J3500 kit. Like new. Sell lor $2250. 
305-962-6677. 2058 Criftm Rd , Ft 
Lauderdale. FL 33312 



FOR SALE: Interdata (Perkm- 

i' 16 , M ' m »'«h 32KB core, front 

H tape reader, .nterfaees for LP 2 

rrrrj, and Rs-232 ( f U ii dup ie, 

programmable) Include, rnanua, 

J5 ^»A^MATION ALPHA 
16; 16 k-word core memory Kiu 
Pf.R Modified Mod ASR-33 TTY 
Manuals, utilities, assemblers an 
many option boards - ™ °'» "° 
Driver, 16 bit I/O, Asvn:h modem 
corrtr 64 bit output. 10 bit A D - 
D/A Fairly complete documen- 
tation Up and running in Fortran 
Not much more than TTY at HOOO 
Herb Sauer, 303-494-0724 



FOR SALE: Heath F+9 video tei 

minal. excellent condition. 417S or 

b£St offer You ship [214] 962-4404 

memory board w.thout memorv 
c ; psand P h ;deckcontf0]|ef ™V 

J^nbWor not working, 

;rl Pfr ^116Nr empric ^ to 

Sw. ca ^ettes o, . J ^'OO 

, d T m '*"Plete wS r *° Pach 
I "<*? software «£ 50 ''^re. , M/ 



COMPUTER SHOPPER, the new buy, sell, and trade 
publication, is ready to help you with the latest infor- 
mation on personal, small business and large-system 
computers, accessories and software. 

Each ad-packed issue is full of bargains you are 
looking for. Included are ads from individuals 
throughout the United States who are selling their 
good, pre-owned equipment just so they can trade-up 
to new equipment coming on the market. 

But, COMPUTER SHOPPER'S bargains wont be 
yours unless you subscribe. This useful, money- 
saving publication can become your way to com- 
municate with other buyers, sellers, and traders all over the nation. 

Whether you are a hobbyist or a part-time user, COMPUTER 
SHOPPER will put you in touch with the nationwide computer 
marketplace in time for you to take advantage of bargain oppor- 
tunities 

Have something to sell'' A COMPUTER SHOPPER subscriber pro- 
bably wants to buy it 

Looking for a part, component or even a complete system'' A 
COMPUTER SHOPPER subscriber probably wants to sell it 

COMPUTER SHOPPER is THE marketplace for anything in com- 
puters and is read by thousands of people who are ready to buy 

COMPUTER SHOPPER offers a unique format in which classified 
ads are categorized for fast location of specific items Combining 
this with low individual ad rates — 12 cents a word — 




makes it the ideal place for buyers and sellers to com- 
municate And. its mix of individual, dealer, and 
manufacturer ads enable subscribers to find what 
they want at the best price possible 

COMPUTER SHOPPER will work for you in other 
ways, too If you are just thinking about getting into 
computers, it can help you learn product availability 
and prices before you make a decision And, through 
the timely ads, COMPUTER SHOPPER will keep you 
abreast of changes in the market which could create 
bargain opportunities for you 

BUT COMPUTER SHOPPER cannot work for you unless you 
subscribe. 

Want to look us over first 9 We'll give you your first issue FREE 
and then bill you for the next 12 If you are not convinced COM- 
PUTER SHOPPER suits your needs, just write "cancel on the in- 
voice and return it 

And, to let COMPUTER SHOPPER start working for you right now, 
with a paid subscription we'll also give you a FREE classified ad to 
sell your pre-owned equipment or to find equipment you want 

If you don't need to use the free classified ad now, use it anytime 
during your subscription 

Subscription $lO/year. 12 issues plus your first free one. Bank 
cards accepted Money back guarantee 




The Nationwide Marketplace lor Computer Equipment 

nampuTBR shiawsR 

PO Box 23 • Titusville, Florida 32780 
Telephone 305-269-3211 

MasterCharge or VISA orders only, call TOLL FREE 800-327-9920. 



THE CARDWRITER 

continued from page 50 

370 PRINT"I THINK THAT..." 
380 PRINT STRING$(36,"-") 
390 CM$="":C=1 

400 A$=INKEY$:IF A$= ,,,, THEN 400 
410 PRINTA$; 

420 IF A$=CHR$(13) GOTO 470 

430 IF A$=CHR$(10) THEN PRINT STRINGS ( 50 ,"-") :C=C+1 
440 IF C=5 GOTO 470 

450 IF A$=CHR$(8) CM$=LEFT$(CM$, (LEN(CM$)-1)) :G0T0 400 
460 CM$=CM$+A$:G0T0 400 

470 PRINT: PRINT'WHO IS THIS TO BE ADDRESSED TO: 
1--ABC 
2- -CBS 
3- -NBC 
4- -PBS 
5- -OTHER" 
480 INPUT AD 

490 IF AD=5 THEN LINE INPUT'SPECIFY NAME AND ADDRESS 
USE DOWN ARROW FOR EACH LINE: 
";AD$(5) 

500 PRINT:PRINT"PREPARE PRINTER AND CARD" 
510 INPUT'ENTER <P> TO PRINT, 
ENTER <S> TO START AGAIN" ;X$ 
520 IF X$="S" THEN RUN 
530 IF X$="P" THEN 550 
540 GOTO 510 
550 PRINT 

560 LPRINT"DEAR ";GR$(GR) 

570 LPRINT" YOUR SHOW, ";CHR$(34) ;SB$;CHR$(34) ; " ,"; 
580 LN=LEN(SB$) 

590 IF LN>27 THEN LPRINT: LPRINT'WHICH WAS AIRED ";:F=3:G0T0 630 
600 IF LN>23 AND LN<28 LPRINT" WHICH" :LPRINT"WAS AIRED ";: 
F=2 : GOTO 630 

610 IF LN>17 AND LN<24 LPRINT" WHICH WAS" : LPRINT"AIRED ";: 
F=l : GOTO ,630 

620 LPRINT" WHICH WAS AIRED" 
630 LPRINT'ON ";DT$;" AT ";TM$; 

640 IF F=l LPRINT", I FOUND TO BE":LPRINT"REALLY " ; : GOTO 680 
650 IF F=2 LPRINT", I FOUND TO" :LPRINT"BE REALLY "; : GOTO 680 
660 IF F=3 LPRINT", I":LPRINT"FOUND TO BE REALLY " ; : GOTO 680 
670 LPRINT", I FOUND TO BE REALLY" 
680 LPRINT OPS (OP)!" " 
690 IF CM$=""THEN 710 
700 LPRINT" I THINK THAT ";CM$;"." 
710 IF 0P>3 THEN LPRINT'BETTER LUCK ON FUTURE SHOWS." 
720 IF OP<4 THEN LPRINT'KEEP UP THE GOOD WORK." 
730 LPRINT TAB(14) "SINCERELY," 
740 LPRINT TAB (18) MA$ 

750 PRINT: PRINT'TURN CARD OVER AND POSITION FOR ADDRESS." 
760 INPUT" PRESS <ENTER> WHEN READY" ;X 
770 LPRINT ADS (AD) 

780 PRINT: INPUT'DO ANOTHER CARD (Y/N)";X$ 
790 IF X$="Y" THEN RUN 
800 END 

810 PRINT'THIS IS YOUR NEW AND PERSONAL TV RESPONDER SYSTEM. 
WITH IT YOU CAN NOW VERY EASILY COMMENT ON ALL THOSE TV 
SHOWS THAT YOU LOVE OR HATE. RUN IT, AND IT WILL PROMPT YOU" 
820 PRINT'WITH A NUMBER OF COMMONLY USED PHRASES AND ALL YOU 
NEED TO DO IS RESPOND WITH EITHER A NUMBER OR THE REQUIRED 



TEXT, YOU DON'T HAVE TO ADD PUNCTUATION AT THE END, THE PRO- 
GRAM DOES IT FOR YOU. WHEN YOU ARE PROMPTED TO INPUT A LONG" 
830 PRINT'STRING OF CHARACTERS, A LINE WILL APPEAR OVER THE 
SPACE WHERE YOU WILL ENTER THE TEXT. JUST DON'T GO BEYOND THE 
END OF THE LINE AND YOUR COMMENTS WON'T AFFECT THE PROGRAM, AND 
IT WILL FIT NICELY ON A STANDARD POSTCARD." 
840 PRINT'WHEN YOU ARE ENTERING YOUR COMMENT THERE WILL BE NO 
CURSOR, BUT ENTER TEXT AS USUAL, IT WILL BE PRINTED AND THE 
BACKSPACE WORKS. HAVE FUN." 
850 INPUT'PRESS <ENTER> TO CONTINUE" ;X 
860 RETURN 

Anthony T. Scarpelli 
98 Foxcroft Dr. 
Scarborough ME 04074 ■ 



BEGINNER'S CORNER 

continued from page 14 

Pathways Through the Rom: Guide to Level II Basic and DOS 
source code 

Softside Publications A compilation of several sources 

by George Blank 
John Hartford 
John T. Phillipp 



and Robert M. Richardson 
P= 19.95 V= 25.00 



a*****************************^******^*;**^***^*******^^,^,;,^ 
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EXAMPLE 4. 



GRAPHICS 



TRS-80 Graphics for the Model I and Model III 
Byte books R.S. Cat. No. 62-2087 
by Kater and Thomas 
P= 10.95 V= 13.00 



Graphic Software for Microcomputers 
Kern by Korites 

P= 21.95 V= 



25. 



(Written for Apple but easily converted to TRS-80) 

EXAMPLE 5. GENERAL TECHNIQUES AND INFORMATION 

Programming Design and Construction 
Prentis-Hall by David Higgens 
P= 12.95 V= 8.95 

The Basic Conversions Handbook for the Apple, TRS-80 and Pet 
Users 
Hayden Brain Bank: David Brain 

P. Oviate 

P. Paquin 

C. Stone 

P= 7.95 V= 5.00 (on sale at a show) 

Microcomputer Dictionary 
Radio Shack R.S. Cat. No. 62-2311 
by Charles J. Sippl 
P= 7.95 V= 10.00 
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I won't go into the advanced texts, except to say that 
the books in the remaining example are all good. I tend to 
think of the Barden, Heiserman, Rosenfelder, and Gratzer 
books as a complete, AND I MEAN COMPLETE, set which 
contains just about every trick that Basic is capable of, 
within those covers. 

The Pathways book is good too, because it contains 
reference material that I have not seen in other texts. It 
also has part of the "Disassembled Handbook" (sort of a 
disassembled "Disassembled Handbook") which has the 
easiest and clearest explanation of how to use those ever- 
present "ROM" routines. 

The graphics texts are the best I've come across. Both 
belong on your shelf. If any better ones come along, I'll be 
sure to let you know. The Graphics for Micros book is 
excellent because of its clear explanations of the theory. 
Most of the programs are easily convertible for the TRS-80, 
especially if you can write a routine that will connect two 
points, such as Med Systems' GRBASIC. 

The book's General Techniques are all useful. You can 
find them at your local book shop and decide for yourself 
which suit your need for the moment. 

Well, that about covers them all. Should you come 
across them at good prices (try college book stores and 
computer shows), by all means buy them. There is bound 
to be some repetition of information, but I've found that 
when one book isn't clear on something, another usually is. 
That topic, however, is another story. So, until next time, 
good programming to you. 

Spencer Koenig 
153-27 73 Avenue 
Flushing NY 11367 
CompuServe 71625,1637 ■ 



PHONE BILL SORTING PROGRAM 

continued from page 48 

820 IF C0$="" THEN CLOSE : RUN ELSE FI$=LEFT$(CN$,8)+"/FIL" 
830 FOR DE=2T0L0F(1) : IF LEFT$(F$(0) , 1)<>"*" THEN NEXT 
840 LSET F$(1)=C0$ : LSET F$(2)=FI$ : PUT1.DE : GOTO810 
850 REM TIMER FOR SCREEN 

860 CLS : FOR X=l TO 2000 : PRINT §C , RIGHTS (TIME$ , 8) ; : IF 

INKEY$<>"" THEN 880 ELSE NEXT 

870 C=C+8 : IF C>55 THEN C=0 : GOTO 860 ELSE GOTO 860 

880 CLS : TM=0 : C=0 : A=672 : RETURN 

900 REM INKEY ROUTINE 

910 IK$=INKEY$ : IF IK$="" THEN 910 ELSE RETURN 

920 PRINT TAB(20)"HIT ENTER TO CONTINUE"; : GOSUB 910 : CLS 

: X1=0 : RETURN 

1000 REM SET UP ARRAY OF COMPANY NAMES 

1010 0PEN"R",1,"C0MPANY/FIL" : FIELD 1 ,30ASF$(1) , 12ASF$(2) : 

FIELD 1,42ASF$(0) : RETURN 

1020 DL=0 : IF L0F(1)<2 THEN 800 ELSE FOR DE=2T0L0F(1) : GET 

l.DE : IF LEFT$(F$(0),1)<>"*"ANDASC(LEFT$(F$(0),1))>32 THEN 

DL=DL+1 : CO$(DL)=F$(0) : C0(DL)=DE : NEXT : NF=DL : RETURN 

ELSE NEXT : NF=DL : RETURN 

1030 CLS : PRINT"THE FOLLOWING FILES ARE ON THIS DISK : " : 

PRINT STRING$(64,"="); : FOR DE=2T0NF : PRINTDE-1;" 



";LEFT$(CO$(DE),30) : NEXT : RETURN 

1040 PRINT TAB(15) "ENTER COMPANY NUMBER TO WORK ON " ; : 

GOSUB 910 : IK=VAL(IK$) : IF IK<10RIK>NF-1 THEN 1040 ELSE 

IK=IK+1 : FI$=RIGHT$(CO$(IK) ,12) : PRINT" "; LEFT$(C0$(IK) ,30) 
: GOSUB 750 : RETURN 

1050 IK=VAL(IK$) : IF IK<1 OR IK>NF-1 : IK=0 : RETURN ELSE 

IK=IK+1 : FI$=RIGHT$(C0$(IK),12) : PRINT " "; 

LEFT$(CO$(IK),30) : RETURN 

1060 A$=" WORKING ON "+RIGHT$(CO$(IK) , 12)+" FILE " : 

DL=64-LEN(A$) : Al=INT(DL/2) : A$=STRING$(A1 , "=") + 

A$+STRING$(32,"=") : A$=LEFT$(A$,64) : PRINT @64 , A$ ; : RETURN 

1100 REM LINE PRINTER HEADINGS 

1110 LPRINT "DATE", "PHONE #" , "TIME (MIN)"," AMOUNT" : 

LPRINT STRING$(60,"-") : RETURN 

1120 CLS : PRINT : PRINT : PRINT : PRINT LI$;" 1 DATE"; 

TAB(25)F2$(0) : PRINT LI$;" 2 PHONE. NUMBER" ;TAB(25)F2$(1) : 

PRINT LI$;" 3 TIME" ;TAB(25)F2$(2) : PRINT LI$;" 4 COST"; 

TAB(25)USINGM$;CVS(F2$(3)) : RETURN 

1200 REM PRINT SUBROUTINE 

1210 PRINT"ITEM # DATE", "PHONE r,"TIME"," COST" : RETURN 

1220 PRINT USING M2$;DE; : PRINT" "; : PRINTF2$(0) • " »■ 

F2$(1),F2$(2),USINGM$;CVS(F2$(3)) : Xl-Xl+1 : IF Xl=>14 THEN 

GOSUB 920 : RETURN ELSE RETURN 

1230 REM LPRINT SUBROUTINE 

1240 LPRINT" ITEM #", "DATE" , "PHONE #", "TIME", "COST" : RETURN 

1250 LPRINT USINGM2$;DE; : LPRINT, F2$(0) ,F2$(1) , F2$(2) .USING 

M$;CVS(F2$(3)) : RETURN 

1260 LPRINT F2$(0),F2$(1),F2$(2), USING M$;F2 : RETURN 

1270 LPRINT" " : LPRINT"THIS TOTAL ="; USING M$;GT : LPRINT" " 

: LPRINT" " : RETURN 

1300 CLOSE : CLS : PRINT : PRINT : PRINT : PRINT"ARE YOU SURE 

YOU WANT TO KILL OLD PHONE BILL Y/N " : GOSUB 910 : IF 

IK$="Y" THEN KILL"PHONE/BIL" : GOTO 30 ELSE GOTO 30 

5000 DATADATE, PHONE §, TIME, COST 

5100 REM READ DATA 

5110 FOR X2=l TO 4 : READ D$(X2) : NEXT : LI$="LINE §" : RETURN 



CHANGES 

As it stands, the program limits the number of company 
files to 9 and the number of monthly numbers entered to 
250. To change the phone number limit, modify the DIM 
statements on line 20 with the variables PN$(250) and 
FK250). 

Do not attempt to run a sort unless you have placed at 
least one phone number under each company file which 
you have created. Otherwise, when the machine opens a 
company file it won't find any phone numbers there to 
compare and will end with an error. However, this is really 
no problem, because there would never be an occassion in 
which you would create a file and not have at least one 
number to put in it. 

Dan Keen and Dave Dischert 

Soft Horizons 

RD 1 Box 432 

State Highway 83 

Cape May C.H., NJ 08210 ■ 
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CORRECTION 



The program that was published with "The Transporta- 
tion Method of Linear Programming" in the August 1982 
issue was unfortunately incorrect. The entire program that 
appears there should be replaced by the following: 

10 CLEAR 800: ON ERROR GOTO 720 :REM "TRANS" 

20 A$="### §§§§ §§§§ §§§ §§§ §§§§§.§§ §§§§§.§§ 

mm.w 

30 CLS: PRINT "TRANSACTION PROGRAM ": INPUT "DATA NAME";F$: 

INPUT "DISK";X$ 

40 FX$=F$+":"+X$: PRINT: INPUT "MAXIMUM NUMBER OF 

TRANSACTIONS" ;D: DIM AX(D,4) ,A#(D,2) 

50 INPUT "SELECT DISK OR KEY INPUT (D OR K)";T$ 

60 IF T$="K" THEN 110 

70 IF T$<>"D" THEN 50 

80 I=1:0PEN"I" ,1 ,FX$ 

90 FOR J=l TO 4: INPUT # 1 , X% : A% ( I , j ) =X% : NEXT J:K=I: INPUT 

#1.X#,Y#:A#(I,1)=X#:A#(I,2)=Y#: IF A£(I,1)=0 THEN 150 

100 1=1+1: GOTO 90 

110 PRINT "CHECK NO., MONTH+DAY, ACCOUNT- DEBIT, CREDIT, 

AMOUNT-DEBIT, CREDIT" :K=1 

120 FOR Z=K TO D:K=Z 

130 INPUT A%(Z,1),A%(Z,2),A%(Z,3),A%(Z,4),A#(Z,1),A#(Z,2): IF 

A%(Z,1)=0 THEN 150 

140 NEXT Z 

150 CLOSE 1: INPUT "INPUT LINE NUMBERS TO BE LISTED OR 0,0 

WHEN COMPLETE"; A, B 

160 IF A=0 THEN 190 

170 CLS: PRINT "NO TRANS DATE ACC-DEBIT ACC-CREDIT 

AMT-DEBIT AMT-CREDIT" 

180 FOR I=A TO B: PRINT USING A$;I ,A5£(1 , 1) , A% ( 1 , 2 ) ,A«(I,3) , 

A%(I,4),A#(I,1),A#(I,2): NEXT I 

190 INPUT "SELECT LINE NUMBER TO BE CHANGED, TO LIST, -1 TO 

ADD DATA, -2 TO RECORD, -3 TO INSERT, -4 TO DELETE, -5 TO SUM 

DEBITS/CREDITS, -6 FOR PRINTING OR -7 TO RETURN TO GLMENU";P 

200 IF P=-7 THEN LOAD"GLMENU" ,R 

210 IF P=0 THEN 150 

220 IF P=-l THEN PRINT "CK NO, MO+DAY, ACCOUNT DEBIT-CREDIT, 

AMOUNT DEBIT-CREDIT": GOTO 120 

230 IF P=-2 THEN 680 

240 IF P=-6 THEN 410 

250 IF P<>-3 THEN 320 

260 INPUT "NUMBER OF INSERTED LINE TO DEFAULT" ;P: IF P=0 

THEN 190 

270 K=K+1:W=0:FOR I=D-1 TO P STEP-1: IF A%(I,1)=0 THEN 300 

280 IF W=0 THEN W=l : FOR J=l TO 4:A«(I+2, J)=AI(I+1 , J) : NEXT J: 

FOR J=l TO 2 : A#(I+2, J)=A#(I+1 , J) : NEXT J 

290 FOR J=l TO 4:Af(I+l,J)=AI(I,J): NEXT J: A#(I+1 , 1)=A#(1, 1) 

: A#(I+1,2)=A#(I,2) 

300 NEXT I 

310 GOTO 400 

320 IF P<>-4THEN360 

330 INPUT"LINE NUMBER TO DELETE TO DEFAULT" ;P: IF P=0 THEN 

190 

340 K=K-1: FOR I=P TO D-l: IF A%(I,1)=0 THEN FOR J=l TO 4: 

AI(I,J)=0: NEXT J: FOR J=l TO 2:A#(I,J)=0: NEXT J: GOTO 180 

350 FOR J=l TO 4:A%(I,J)=A%(I+1,J): NEXTJ : A#(1 , 1)=A//(I+1 , 1) 

; A#(I,2)=A#(I+1,2): NEXT I: GOTO 180 



360 IF P<>-5 THEN 400 

370 SD#=0:SC#=0: FOR 1=1 TO D: IF A%(I,1)=0 THEN 390 

380 SD#=SD#+A#(I,1):SC#=SC#+A#(I,2): NEXT I 

390 BA$="###, §§§,§§§.§§": PRINT"SUM DEBITS ";: PRINT USING 

BA$;SD#;: PRINT" SUM CREDITS ";: PRINT USING BA$;SC#: GOTO 

190 

400 PRINT "CK NO., MO+DAY, ACCOUNT-DEBIT, CREDIT, AMOUNT-DEBIT, 

CREDIT": INPUT A$(P, 1) ,A%(P,2) ,A%(P,3) ,AS(P,4) ,A#(P, 1) ,A#(P,2) 

: GOTO 180 

410 INPUT "LINE COUNTER (Y/N)";LC$: IF LC$="Y" THEN CMD 

"FORMS(T)" 

420 XX$=" NO. CK NO. MO+DAY DEBIT CREDIT $DEBIT 

$CREDIT $BALANCE" 
430 INPUT "INPUT DATE OF RUN XX/XX/XX" ;DA$ 
440 Z$=" BALANCE §§§§§§§§§§,§§« 
450 INPUT "INPUT ORIGINAL BALANCE" ;BA#:SD#=0:SC#=0 
460 LPRINT" ":LPRINT" DATE ";DA$:LPRINT USING Z$;BA# 
470 LPRINT XX$ 

480 CLS: PRINT "PRINTER MENU": PRINT " 1 ALL 
ACCOUNTS": PRINT" 2 SELECTED TRANSACTIONS": PRINT 

3 SELECTED DATES": PRINT" 4 SELECTED 
ACCOUNT": INPUT GH% 
490 IF GH%=\ THEN 560 
500 IF GH%<>2 THEN 520 

510 INPUT "INPUT MINIMUM AND MAXIMUM TRANSACTION NUMBERS"; 
SS%,BBSS: GOTO 560 
520 IF GH«<>3 THEN 540 

530 INPUT "INPUT EARLYEST DATE AND LATEST DATE (MODA)"; 
SSX,BB%: GOTO 560 
540 IF GH%<>4 THEN 480 
550 INPUT "ACCOUNT YOU WISH TO EXAMINE" ;SS% 
560 FOR 1=1 TO D: IF A%(I,3)=1 THEN BA#=BA#+A#(I , 1) 
570 IF A%(I,4)=1 THEN BA#=BA#-A#(I ,2) 

580 IF. AS?(I,1)=0 THEN BA$="###, #§§,§§#.##": LPRINT "SUM DEBITS 
"■;: LPRINT USING BA$;SD#; : LPRINT " SUM CREDITS " ; : LPRINT 
USING BA$;SC#: GOTO 190 
590 IF GHX=1 THEN 650 

600 IF GH%=2 AND SS%<=A%(I,1) AND BB!?>=A% ( 1 , 1 ) THEN 650 
610 IF GHS?=3 AND SS%<=A%(I,2) AND BB%>=A%(I,2) THEN 650 
620 IF GH!5=4 AND A%(I,3)=SSI THEN 650 
630 IF GH%=4 AND A!£(I,4)=SS% THEN 650 
640 GOTO 660 

650 LPRINT USING A$;I ,A%(1, 1) ,A%(I,2) ,A%(I,3) ,A%(1 ,4) , 
A#(I,1),A#(I,2) ,BA#:SD#= SD#+A#(I,1) : SC#=SC#+A#(I ,2) : NEXT I 
660 NEXT I: LPRINT "SUM DEBITS ";:LPRINT USING BA$;SD#," SUM 
CREDITS ";: LPRINT USING BA$ ; SC# 
670 GOTO 190 

680 OPEN"0",l,FX$: FOR IX=1 TO D: FOR IQ=1 TO 2: 
DZ#=INT(100D*A#(IX,IQ))/100D:DX#=A#(IX,IQ)-DZ#: 
A#(IX,IQ)=DZ #: IF DX#>.005D THEN A# (IX , IQ)=A#(IX , IQ)+ . J31D 
690 NEXT IQ,IX:IX=0 

700 IX=IX+1: PRINT #1 , A%(IX, 1 ) ; A%(IX , 2) ; A%(IX, 3) ; A%(IX,4) ; : 
FOR IQ=1 TO 2: PRINT #1 , A#(IX,IQ) : NEXT IQ: IF IX<D THEN 700 
710 CLOSE 1: GOTO 190 
720 RESUME 730 

730 PRINT "AN ERROR HAS OCCURRED SAVE YOUR FILES- -ON NEW DISK 
IF NECESSARY": PRINT: GOTO 190 ■ 
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PROGRAM CONVERSION (PART 10) 

Richard Kaplan 



After nine months of writing this series, I have amassed 
an abundance of reading material pertaining to program 
conversion between the MODEL I, MODEL II, MODEL III, 
APPLE, and CP/M computers. No doubt this information 
may be a bit cumbersome to read completely and utilize; 
therefore, I will devote a large portion of this month's 



PRINT USING "% 
IF XXX YYY 
PRESSING SHIFT 
ERR/2+1 



PRINT USING 7 /" 47 

IF XXX THEN YYY 48 

PRESS HOLD KEY 48 

ERR (ALSO CHANGE ERROR 48 
COOES) 



article to a presern 


:ation or cnarts summarizing most 








information which 1 


have presented in the 


last nine 


CONVERSION TO CP/M FROM MODEL II 




months. 






MODEL II COMMAND 
CLS 


CP/M EQUIVALENT 
PRINT CHR$(X) 


ISSUE § 








46 


CONVERSION TO MODEL I/III FROM MODEL II 






(DEPENDS ON COMPUTER) 




MODEL II COMMAND 


MODEL I/III EQUIVALENT 


ISSUE # 


PRINT § X,"ZZZ" 


DN-INT(Q/80) 


46 


PRINT § X 


PRINT g (INT(X/80)*64) 
+ (X-INT(X/80)*80)) 


44 




AC=Q-INT(Q/8J3)*80 
PRINT CHR$(X) 




OPEN "R",1,"XXX",128 


OPEN "R",1,"XXX" 


44 




IF DN<>0 THEN PRINT STRINGS (ON, Y) ; 
IF AC<>0 THEN PRINT STRING$(AC,Z) ; 




(MOD I ONLY) 






PRINT "ZZZ" 




OPEN "D",1,"XXX" 


OPEN "R",1,"XXX" 


44 




(X=HOME CURSOR Y=CURS0R DOWN 


OPEN "E",1,"XXX" 


READ AND REWRITE FILE 


44 




Z=CURSOR ACCROSS) 




SWAP A,B 


T=A:A=B:B=T 


47, 


OPEN "R",1,"ZZZ" 


CP/M DOES NOT SEARCH DRIVES 


46 




OR 


50 


LOF 


MAINTAIN MANUALLY OR COMPUTE 46 




CMD"F=SWAP",A,B 












(UNDER NEWDOS/80) 




FORI=1TO10 


FOR I = 1 TO 10 


46 


ERASE A$ 


CMD"F=ERASE",A$ (NEWDOS/80) 


i 47, 




(LEAVE SPACES BETWEEN KEYWORDS) 




CMD"L"A$(0) (MULTIDOS) 


50 


REL=RE+1 


RE=RE+1 

(CP/M RECOGNIZES 5- LETTER 


46 


PRINT USING 7 /" 


PRINT USING "% %" 
A-INT(A/B)*B 


47 
47 




VARIABLES) 




A MOD B 


CONVERSION TO HP MBASIC FROM MICROSOFT BASIC 


SYSTEM" I" 


NOT NECESSARY 


47 


MICROSOFT COMMAND 


HP EQUIVALENT 


ISSUE # 


SYSTEM 


CMD"S" 


47 














LEFTS (A$,Y) 


A$(1,Y) 


49 


SYSTEM"XXX" 


CMD"XXX" (ONLY WITH AN 
ALTERNATIVE DOS) (MOD I) 


47 


RIGHTS (A$,Y) 


A$(LEN(A$)-Y+1,LEN(A$)) 


49 




CMD'T',"XXX" (TRSDOS 1.3) 




MID$(A$,X,Y) 


A$(X,X+Y-1) 


49 








C$=A$+B$ 


C$=A$:C$(LEN(C$)+1)=B$ 


49 


SYSTEM"SCREEN" 


SHFT DWN ARW * (MOD III 


48 










OR DOSPLUS AND MOD I) 

JKL (MOD I OR III WITH NEWDOS/80) 


ARRAY HANDLING 


SEE TEXT OF ARTICLE 


49 
















CONVERSION TO APPLE FROM TRS-80 




ERR 


ERR/2 +1 48,49 










(ALSO CHANGE ERROR CODES) 




TRS-80 COMMAND 


APPLE EQUIVALENT 


ISSUE § 


PRESSING HOLD KEY 


PRESS SHIFT g 


48 


CLS 

DISK ACCESS 


HOME 
SEE TEXT OF ARTICLE 


45 








45 


CONVERSION TO MODEL II FROM MODEL I/III 











MODEL I/III COMMAND 
PRINT § X 

OPEN "E",1,"XXX" 
SET (X,Y) 



MODEL II EQUIVALENT 

PRINT g (INT(X/64)*80) 
+(X-(INT(X/64)*64))+320 

READ AND REWRITE FILE 



ISSUE # 
44 



DEF FNA(X)=(INT(X/64)*80) 4 
+(X-(INT(X/64)*64))+320: 
PRINT g FNA(Y»64+X),CHR$(158) 



A PRACTICAL EXAMPLE 

I recently received a letter from Stuart Reiner, 222 West 
15th Street, New York, NY 10011. I believe his letter is 
appropriate for this column, because it is an excellent 
example of the need for program conversion techniques, 
and it can also help to explain the process one must utilize 
when attempting to convert BASIC programs. 
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Dear Mr. Kaplan: 

I own a TRS-80 MODEL III (48 K) with one disk drive. I 
have been encountering difficulties in translating a program 
written for the Apple II in Integer BASIC. I use TRSDOS. 

The programs I have been trying to convert are part of a 
Pro Football predicting system included in the book "BASIC 
Betting — The Micro-Computer Edge" by James Jasper (a 
copy of the program as written by Mr. Jasper is enclosed). 

I have enclosed a copy of the program as translated by 
me. The program runs through all right, except for the loop 
contained in the program at lines 7150 and 10235. I have 
tried entering the FOR and NEXT statements in several 
different ways, but I have been unsuccessful at all attempts 
to get the program to excute the loop. At this point the 
program is supposed to return so that information for a 
second team may be entered and hn the third team, etc. 
until the information for all 28 teams for the current week 
has been entered. 

I would appreciate any help you can give me in overcoming 
this problem. 

Thank you very much. 

Very truly yours, 
Stuart Reiner, CPA 

For legal reasons, it is not possible for me to reproduce the 
entire program listing here which Mr. Reiner sent to me. 
Instead, I will include only those portions of the program 
which required conversion. 

# VS. <> 

In the original (Integer BASIC) program, there were a 
number of lines which were similar to the following: 

300 IF A$#A1$ THEN 310:A=1 : RETURN 

This line contains a "#", which represents "not equal to" 
on the APPLE in Integer BASIC. On the MODEL-MI (or any 
other TRS-80, for that matter), the "not equal to" operator is 
"<>". As a result, our corrected line should read as follows: 

300 IF A$<>A1$ THEN 310: A=l : RETURN 

The subsitution of <> for # is a snap. This should be an 
easy conversion. Right? Wrong/ There is one more element 
of this line which still must be converted. 

IF ... THEN 

If you are at all experienced with TRS-80 programming and 
you examine the above line, you will see that the end of the 
line, i.e., "A=1:RETURN", would never be executed on a 
TRS-80. If an "IF" condition is true on the TRS-80, each 
command on the line is then executed. If the condition is 
false, execution of the program jumps to the next line 
number. On a TRS-80, then, if A$ were not equal to A1$, 
program execution would jump to line 310, since there is a 
GOTO statement there. The portion of the line which reads 
"A=1:RETURN" would never be executed. 

On the APPLE with Integer BASIC (NOT with APPLESOFT), 
the end of the line would be executed if the "IF" clause were 
not true. An equivalent set of program lines for a TRS-80, 
then, would be the following: 



300 IF A$oAl$ THEN 310 

305 IF A$=A1$ THEN A=l: RETURN 

IF ... THEN ... ELSE 

There is a programming concept on the TRS-80's which 
could reduce the two lines above into one line. The 
sequence "IF ... THEN ... ELSE" is that concept. In the two 
lines above, IF A$ is equal to A1$, THEN program execution 
branches to line 310, or ELSE A is set to 1 and the subroutine 
is terminated. In computerese, we could state this as follows: 

300 IF A$oAl$ THEN 310 ELSE A=l: RETURN 

DISK ACCESS AND CHR$(4) 

In May, 1982 (issue # 45), I discussed in-depth the 
handling of APPLESOFT disk files, which are virtually identical 
to Integer disk files. However, there is particular point, which 
was needed in Mr. Reiner's progam, which may very well 
cause quite a bit of confusion. Examine the folowing set of 
lines, which appeared in the program Mr. Reiner sent in: 
10 D$="" 

20 PRINT D$;"0PEN WEEKLY" ;GN0 
7000 PRINT D$;"WRITEWEEKLY";GNO 

7003 PRINT #1,A$ 

7160 PRINTDS; "CLOSEWEEKLY" ; GNO 

A knowledgable but not completely experienced TRS-80 
programmer might see this APPLE program and translate it as 
follows: 

10 D$="" 

20 PRINT D$:0PEN "0", 1, "WEEKLY": PRINT GNO 
7000 PRINT D$: PRINT #1 , "WRITEWEEKLY" ; GNO 
7003 PRINT #1,A$ 
7160 CLOSE #1 

Lef s now examine this attempted conversion and see what 
might have been easily overlooked: 

10 D$="" 

Line 10 in the APPLE program appears innocent enough. 
Variable A$ is simply being set to a length of 0. Right? 
Wrong/ As I mentioned in my May column, D$ is frequently 
used to denote CHR$(4), which is needed on the APPLE to 
specify a disk command. However, CHR$(4), which is CTRL- 
D, is not actually printed on the screen, even though it is part 
of the program. The original program author should have 
documented this in his program. However, since he didn't, 
we must realize this from context. Since CHR$(4) is not 
needed for TRS-80 disk access, we can delete this line. 

20 PRINT D$;"0PEN WEEKLY"; GNO 

20 PRINT D$:0PEN"0",1, "WEEKLY": PRINT GNO 

This conversion again seems to be quite obvious. The 
original statement prints D$, opens the file, and prints the 
value of GNO. Right? Wrong again. 

As with our previous example, D$, which is equal to 
CHR$(4), is not needed on the TRS-80' s. The OPEN command 
was not converted correctly either. On the APPLE, if GNO is 
equal to 1, the command PRINT D$;"OPEN WEEKLY";GNO 
will open file WEEKLY1. On the TRS-80, the name of the file 
must be a string; it cannot be composed of a string portion 

continued on page 63 
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SOFTWARE REVIEW 

Defense Command 
from Big Five Software 

John Wilson 

Are you looking for a fast-action, truly challenging game? 
Look no further. Defense Command from Big Five Software 
is the game for you. While the game is modelled after the 
popular arcade game, there are quite a few changes that 
have been made. 

You start out with 3 space ships and 4 anti-matter 
bombs. You are alone, trying to protect 10 KROTNIUM 
fuel cells from the KROMORFKROM galaxy. As the enemies 
fly down, you must position your ship directly below them, 
then fire. If you miss, you won't be able to fire again until 
the laser shot leaves the screen. You are awarded 40 to 90 
points for each alien shot. If an alien gets down to the 
bottom, he will grab a canister and fly off with it. Shooting 
him will award double his value, and the cell will start to 
fall. Being very fragile (the price you pay for nuclear 
power), you must catch the cells, or they will explode. A 
caught cell awards either 300 or 400 points. 

As your skills improve, there are more aliens, each 
moving faster. If the situation gets out of hand, an anti- 
matter bomb (AMB) can be used. Pressing any of the 
number keys (0-9), or aiming the joystick up will detonate 
one of the bombs. All aliens on the screen are destroyed, 
and any cells the aliens were carrying will fall. 

There are two special alien ships that should be men- 
tioned. These are the Flagship and he Slicer. The flagship is 
the same on as in Robot Attack and Attack Force, but is no 
danger here. It flies along at different levels, carrying a 
cargo of ships. The flagship is worth 500 points, but any 
aliens inside will be released. The slicer has been program- 
med to destroy fuel cells. The explosion from the cell will 
destroy the slicer. A slicer appears only when your supply 
of cells is low, or when released from the flagship. 

The game ends when you run out of ships or all of the 
fuel cells have been destroyed. As an aid in playing the 
game, an extra ship will be sent to you every 10,000 
points. At every 5,040 points, you will receive another 
AMB. 

This is one of the better games available today. It has 
clear, fast graphics, along with excellent sound. One or two 
people can play the game, with the 10 highest scores 
saved. It is an excellent program, and is very addictive. 

For those of you who like to get a higher score than the 
program gives, I have found out the way to get a higher 
cannister bonus. Load the program normally, but do not 
execute it. Co into the basic Ready mode, and type: POKE 
24616,62:POKE 24617,6:POKE 24619,0:POKE 24620,0 
After this, type' "SYSTEM", then "/1 8750". You should 
receive 900 points for each cell caught. To get a larger 
bonus, increase the value that is poked into location 
24617. 
John Wilson 
204-79 Russell St. W. 
Lindsay, Ontario 
Canada K9V 2X3 ■ 



FREE 

business software 
directory 

• Radio Shack's Model I, II, III. 

• Heath's MBASIC and HDOS 

• CPM: Xerox, Alto... 

• IBM Personal Computer 



'IDM2 is GREAT !" 



•publisher of 80- US 



" (GL) superior to either the Osborne (SBSG & Taranto) 
or Radio Shack... MAIL-X has a greater capacity... 
more flexible than (R.S.)" 

-columnist of 80-microcomputing 

"imperceptively fast .. .(DBMS) is a good and reliable 
workhorse" -publisher of Interface Age 

Data base manager, integrated accounting package 
(AR, AP, GL & Payroll), inventory, word proces- 
sing, and mailing list. Compare and be selective ! 



3fe* 



Micro Architect, Inc. 

96 Dothan St., Arlington, MA 02174 




A NEWSLETTER FOR POCKET COMPUTER USERS 

This timely, compact publication provides up to the minute 
information on pocket computers, including models such as 
the Radio Shack TRS-80 PC-1 and PC-2, Sharp Electronic's 
PC-1500 and PC-123 1, and others as they are announced. Sub- 
scribe now to receive a valuable bonus absolutely FREE! 

■ Up to the Minute News ■ Product & Equipment Reviews 

■ Important Operating Tips ■ Practical Programs ■ More 
By Subscription Only: for a calendar year period (January — 
December). You get all issues published to date for the calen- 
dar year in which you subscribe, at the time you subscribe. 

MC/VISA Phone Subscriptions: (203) 888-1946 
D I am interested. Please send me more information. I have a: 

D Radio Shack PC-2 D Sharp PC-1500 D 

D 1982 Regular Subscriber (Issues 11 - 20). $30.00 in U.S. 

(U.S. $36.00 to Canada. U.S. $45.00 elsewhere.) 
D 1982/83 Subscriber (Issues 1 1 - 30). $60.00 in U.S. 

(U.S. $72.00 to Canada. U.S. $90.00 elsewhere.) 
□ 1983 Regular Subscriber (Issues 21 - 30). $36.00 in U.S. 

(U.S. $42.00 to Canada. U.S. $50.00 elsewhere.) 
Orders must be accompanied by payment in full. We do not 
issue invoices for the POCKET COMPUTER NEWSLETTER. 
Thank you for your remittance. 



Name: 

Addr: 

City: State: Zip: 

MC/VISA #: Expires: _ 

Signature: 

POCKET COMPUTER NEWSLETTER 
P.O. Box 232, Seymour. CT 06483 
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v / Epson ^ 
Giveaway * 

Epson MX70/80 Cartridges 

00 EACH 



$5 



Min. 3 of same color 

Reloads $2.50 each Min. 12 
$30.00 a Doz. of Same Color 

Cartridges and Reloads Available 
In Black, Red, Green, Blue, Brown 

35 Cherry Court, East Northport, N.Y. 11731 

N.Y.S. Residents Add Tax, Add $2.00 Shipping & Handling 

Prices Subject to Change 

Allow Clearing Time for Personal Checks 

Money Orders & Certified Checks shipped same day 



fSteqgUtil ElECTOONIC MAI PICKUP AMD DflMW 

The unque Automated Computer Elec 
tronic Mail packoge allows vou to send and 
receive ASCII tiles from vour COMPLETELY 
J'-jAT-N, ■■.: ; -US-Si", ACfA'Ai. BOfl 'ecoivo 
remote colls as a HOST and place PRESET 
CALLS as a TERMINAL 

Written exclusively tor the Hayes Stock 
Smartmodem and the TRS-80 model I/IH48K 
with disk. ACEMAIL operates on 
DOSPLUS or NEWDOS/80 and comes 
supplied on tiny DOSPLUS ready 
to run 1 

HAYES STACK SMARTMODEM 12O0-S619 

HAVES STACK SMARTMODEM 300-5239 

ACfMAIL 1200 SOFTWARE -$-(19 

ACEMAIL SOFTWARE -$79 



ACE COMPUTER PRODUCTS OF FLORIDA. INC 
1640 NW 3rd St, Deertieid Beach. FL 33441 
_A Data (305) 427-6300 /Voice (306) 427-1257 

win 1 S0O327-27M MCA/'ja accepted ft rn.aflr.1j <xw sales to. 
FiB^t incl (UPS gtoond cont USA) 



i"000- 



2283 



From Computer Plus to YOU . . . 

PLUS PLUS PLUS 




Model 16 128K 

1 Drive S41 99 

2 Drive S4799 




— ■■■ -"■'I 



■ IWExf lo*-.: Jirt 




f^^>H^3A^TT 



MuC»l I 'a* 1. im 

Mad*l !l<U« 



Okldala 62A S425 




Color Compuler Disk Driye 
Drive 0S470 Drive 1 $315 




ni|?Er*T He ' e a ' e ' us( a ' ew of our fine offers . 
DU T UIKCW I ca// TOLL FREE for Ml information 



COMPUTERS 




MODEMS 








Model III 4K LEVI 


$599 


Lynx Dlrecl Conned MI'MIII 


*3b 






MODEL III 16K 


799 


Hayes Smarl Modem II 


23b 






MODEL III 32K 


856.50 


Telephone Interlace II 


169 






•MODEL III 32K 


831.50 


R.S. Modem ID.C. 


130 


Color Compuler Drive 




MODEL III 48K 


914 










'MODEL III 48K 


864 






Primary Hard Disk Mill 




Model III 48K 




Daisy Wheel II 


1715 






2Dlsk8.RS232c 


1899 


DWP-410 


1335 






Color Compuler 16K 


305 


SmilhCoronaTPI Daisy Whee 


599 






Color Compuler 16K 




Epson MX80 


599 






w/exlended basic 


399 




549 






Color Compulei 32K 




Epson MX100 


735 


Color Compuler Flex D.O.S. 




w/exlended basic 


499 




199 






JColor Compuler 32K-64K 






315 






wiextended basic 


510 




599 






Pockel Compuler 2 


230 




1029 






Model 16 1DR128K 
Model 16 2DR128K 


4199 
4799 


DMP-500 
MicrolineBO 


1569 
325 


wilhNECPAMinsialled 




DM Dala Terminal 


599 


Microline82A 


425 


1 Color Compuler 64* requires 








Microline83A 


679 


0;;*GanclFie<DOS 








Microline 84 Parallel 


1029 


TOLL FREE 












1-800-343-8124 





Fully Warranteed Prices AND 
a full complement of Radio Shack 
Software. 



prices subject lo change wfthoul nollco. 
Nol responsible lor typographical errors. 
TBS-80 ii o resiHerad rractsmark or Tondy Corp. 



comi 




P.O. Box 926 

480 King Street 

Lltflelon, MA 01460 ■ w "'» r O'» 

61 7-486-3 1 93 r,M =oraioo 



TELETYPE INTERFACE 




PARALLEL PORT IO SERIAL OAIA 

INTERFACE ASR 8i KSR 33 TELETYPES 

MODEL I. It. & III COMPATABLE 

NO SOFTWARE OR MEMORY REQUIRED 

20 MA CURRENT LOOP FORMAT 

SIMPLE LLIS7. LPRINT COMMANDS 

LINEFEED AFTER CARRIAGE RETURN 

110BAUD RATE STANDARD 

PA RESIDENTS ADD 6% SALES TAX 



$139.95 



GTI ELECTRONICS CO. 



RD 2. BOX 234B. LEHIGHION. PA 18235 
71 7-386-4032 
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110 FORX=- 24576T0- 24441 : READY : POKEX , Y : NEXT 

115 ' 'CLEAR' REQUIRED TO RESET VARIABLES FOR SECOND TIME 
THROUGH. 

116 ' Y(2,3,40): GRAN 1 OR 2: HOW USED, TOT GRANS, GRANS SO 
FAR: TRACK 

117 ' YN$(2,40): FILE NAME-GRAN 1 OR 2: TRACK 

118 ' SN$: FILE NAME: - SN(3,64): NO OF SECTORS, NO OF 
BYTES, NO OF EXTENTS 

120 CLEAR6000:DIMY(2,3,40),YN$(2,40),SN$(64),SN(3,64) 

125 ' PRINT SCREEN TITLE AND INSTRUCTIONS: 

126 ' <ENTER> = READ DRIVE 0, SKIP SYS 8 INVIS 
FILES 

127 ' 1 <ENTER> = READ DRIVE 1, SKIP SYS & INVIS 

FILES 

128 ' 2 <ENTER> = READ DRIVE 0, PRINT ALL FILES 
130 CLS:PRINTCHR$(23);:PRINTg334,"M ACS MA P": PRINT 
140 PRINT: PRINT" LOAD TARGET DISKETTE IN DRIVE 0" 

150 Y$="":LINEINPUT" PUSH <ENTER>";Y$ 

155 ' SELECT DRIVE 1 

160 IF Y$=" 1 " THENPOKE - 24574 , 2 : POKE - 24507 , 2 : Y$=" " 

165 ' GO READ DISK AND RETURN HERE - RESTORE DRIVE 

SELECTION, 

170 DEFUSR1=8HAJ300:B=USR1(B) : POKE-24574 , 1 : P0KE-245J37 , 1 

175 ' A=BYTE BEFORE FIRST BYTE OF SECTOR DIRECTORY 
(AFFFH). 

176 ' H$=DECIMAL TO HEX CONVERSION STRING. 
180 A=-20481:MA$='W:H$="0123456789ABCDEF" 
185 ' PRINT PAGE HEADER. 

190 PRINT§400,"T URN ON PRINTER!" 

200 LPRINTSTRING$(22, "*");" MACS DISK MAP 

";STRING$(23,"*"):CLS:LPRINT 

205 ' PRINT DISKETTE NAME AND CREATION DATE. 

210 LPRINT"DISKETTE ■ "; 

220 FORX=209TO216: LPRINTCHR$(PEEK(A+X)) ; : NEXTX: LPRINT 

STRING$(10," "); 

230 F0RX=217T0224:LPRINTCHR$(PEEK(A+X)); : NEXTX: LPRINT 

235 ' COUNT NUMBER OF TRACKS AVAILABLE FROM GAT TABLE. IF 

TRACK LOCKED OUT, MOVE CODE 2 INTO Y ARRAY. PRINT BOTH 

TOTALS. 

240 T=0:R=0:FORX=97TO136 

250 IFPEEK(A+X)=252THENT=T+1 

260 IFPEEK(A+X)=255THENY(l,l,X-96)=2:Y(2,l,X-96)=2 

270 NEXT 

280 LPRINT"TRACKS - AVAILABLE "; 

290 LPRINTUSINGMA$;T; : LPRINT" LOCKED OUT ";:LPRINT USING 

MA$;40-T 



294 
295 
296 
297 
298 
299 



BUILD Y ARRAY ACCORDING TO GAT TABLE ASSIGNMENTS: 
255(FF)= BOTH GRANS USED 
254(FE)= #1 FREE, #2 USED 
253(FD)= #1 USED, #2 FREE 
252(FC)= BOTH GRANS FREE 
ASSIGNED' AND 'FREE' TOTALS. 



PRINT 
300 FORX=1TO40 
310 Z=PEEK(A+X) 
320 IFZ=255THEN370 

330 IFZ=254THENY(1,1,X)=1:R=R+1:GOTO370 
340 IFZ=253THENY(2,1,X)=1:R=R+1:GOTO370 
350 IFZ=252THENY ( 1 , 1 , X)=l : Y(2 , 1 , X)=l : R=R+2 : GOT037J3 
360 PRINT"DIRECTORY ERROR - USE DIRCHECK/CMD" :END 
370 NEXT 
380 LPRINT"GRANULES - ASSIGNED "; 



390 LPRINTUSINGMA$;(T*2)-R;:LPRINTSTRING$(10," ");"FREE 

"|USINGMA$;R; 

395 ' A=FIRST BYTE OF SECTOR 2 (B200H) . CHECK ALL FPDE'S 

FOR FXDE'S. BYTE MUST INDICATE IT IS NOT ITSELF AN FXDE, 

BUT THE SECOND LAST BYTE MUST SHOW IT HAS ONE (FE) . IF YES, 

HANDLE IN SUBROUTINE. 2ND BYTE ZEROED TO FACILITATE 

NEWDOS80-V2 

400 A=- 19968 :PRINT§408,"- FXDE CHECK -" 

410 FORX=0TO63:POKEA+(X*32)+l,0:POKEA+(X*32)+2,0 

420 IF PEEK(A+(X*32))>0 AND PEEK(A+(X*32))<128 AND 

PEEK(A+(X*32)+30)=254 THEN GOSUB 1060 

430. NEXTX 

435 ' PRINT NUMBER OF FXDE'S. 

440 LPRINTSTRING$(10," ");"FXDE'S -";USINGMA$;XD 

450 LPRINT"SECTORS - ASSIGNED "; :LPRINTUSINGMA$; ((T*2) -R)*5; 

LPRINTSTRING$(10," ") ; "FREE 

";USINGMA$;R*5; 

455 ' CHECK ALL FPDE'S. IF ACTIVE, GO AND HANDLE IN 

SUBROUTINE. 

460 FORX=0TO63 

470 IFPEEK(A+(X*32))=0THEN490 

480 GOSUB730 

490 PRINT8408, "COUNTDOWN " ;64-X: NEXTX : CLS 

495 ' PRINT NUMBER OF FPDE'S. 

500 LPRINTSTRING$(10," " ) ; "FPDE'S -";USINGMA$;FP 

505 ' PRINT PAGE TITLE. 

510 LPRINT :LPRINT"TRACK> <1ST GRANULE> <2ND 

GRANULE> <FILE LENGTH>":LPRINT"DC HX>";"- - - -<SECTORS 

0-4>";STRING$(10,"-");"<SECTORS 

5-9>";STRING$(4,"-");"<SECT0RS/BYTES-EXTENTS": LPRINT 

STRING$(7 2,"*") 

513 ' 

CJ4 i********** PRINTING ROUTINE ********** 

515 ' 

516 ' START OF 40 TRACK PRINTOUT. 
520 FORX=1TO40:C$=CHR$(X-1) 

525 ' CONVERT TRACK NUMBER TO HEX. PRINT BOTH. 
530 LPRINJUSING"##" ; X- 1 ; : LPRINT" " ; :LPRINTMID$(H$, 
((ASC(C$)AND240)/16)+1,1);MID$(H$,(ASC(C$)AN D15)+l,l); 

535 ' 2-UP PRINTING OF GRANS 1 AND 2. 

536 ' CHECK CODES- 0=USED, 1=FREE, 2=L0CKED OUT. 
540 FORW=l TO 2 

550 IFY(W,1,X)=1THENYN$(W,X)=" -- FREE -- " 

560 IFY(W,1,X)=2THENYN$(W,X)=" LOCKED OUT " 

565 ' NUMBER THIS GRAN. 

570 LPRINT" <";USING"##";Y(W,2,X); 

575 ' NAME OF FILE AND TOTAL GRANS IT HAS. 

580 LPRINT" ";YN$(W,X)i" ";USING"##";Y(W,3,X) ; 

590 LPRINT"> "; 

600 NEXTW 

605 ' IS THERE A FILE TO LIST FOR 'LENGTH' COLUMN? 

610 NS=NS+1 

620 IFSN$(NS)=" "THENLPRINT : GOTO700 

630 LPRINT; 

635 ' PRINT NAME WITHOUT BLANKS. 

640 F0RJ=1T012 

650 IFMID$(SN$(NS),J,1)=" "THEN670 

660 LPRINTMID$(SN$(NS),J,1); 

670 NEXTJ 

675 ' PRINT NUMBER OF COMPLETE SECTORS, BYTES LEFT OVER, AND 

EXTENTS. 
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TRS-80**: 

COLOR GAME V 

LIMITED OFFER ! 



FREE 



WE'LL SEND YOU OUR BONUS GAME OF THE MONTH 

WHEN YOU BUY ANY 2 GAMES 




GATOR ZONE 

THE FIRST ANTI-PREPPY COMPUTER GAME * 
WHERE YOU LL FIGHT OR LOSE YOUR SHIRT! 




18.95 



STARBASE ATTACK 5 ' 295 

\ip <-\ If Al SIS 5 12.95 





KQSttlC KMMftZE 18.95 

GALLOPING GAMBLERS- 



illustrated memory banks 

P.O.BOX 289 DEPT. C 

I WILLIAMSTOWN, MA. 01267-0289 

ljEL-413-663-9648 



Master Card 
and VISA accepted. 

*TKS 80 is d XM uf 
Tandy Corp. 

** CASSETTE . 



CERTIFIED CHECKS OR MONEY ORDERS ONLY 
PHONE ORDERS - CALL MON-FRI 9-5 EST 



EPSON OWNERS! 

Grafpac-80 gives your Mx-80 or 100 
powerful plotting capability. 

Some features are: 

Usable from Basic, Fortran. Assembly Forth, Pascal. 

and other disk based languages. 

Large plot window —960 dots across 8.5 inches, ami 

—32000 dots up and down 25 pages!!! 

Built-in variable size ascii character generator with 

commands for plotting single characters or strings along 

an axis. 

High power commands for circles, ellipses, graph 
borders, line and point drawing, and two and three 
dimensional data plotting. 

Resides on your disk when your plotting program is 
running, thereby giving your program all 4«k ot ram. 
Available for Trs-80 Model I X. II! with two drives, jbk, 
and Epson Mx-80, 100 with Graftra*. Price $59,95 
{Please specify model I or III i 

Demo, sample plots and basic programs provided on 
the disk. 

Also available for C?!M systems with 56 K, Epson Mn- 
80 or 100 with Graftra x. (8 inch Disk only]. Price 
S79.95 

Data disk with the following files: Map of the USA, 
Space Shuttle, pretty girl, and many other 
demonstration plot files. Price $29.95 for CP/M and 
Trs-80 I & 111. 

Please include $3.00 shipping with each order. 

Available from: MESC 

Parkhurst Dr. 
Salisbury Md. 21801 
Phone:301-742-73.13 




uOflrt to 




Mi 



Z0R L0F 

THE MAGNIFICENT 

WORD PROCESSING SYSTEM 



For the TRS-80* Model I and III 



• Wnitefi in fas; Z80 macmne language 

• Full screen editing 

• Single key control ol ail ediling tunctions for ease ol use 

• Dynrmic display ol word count, 'me count, and free 
rrtP:nory count 

• Hold down repeat on alt keys 

• Superscripts and Subscripts 

• Underlined, bolded, expanded, and condensed type 
styles - combine and intermix within a tine 

• Juslihes tines to left margin, ngnt margin both margins 
and centered. 

• Automatically justifies and word-wraps on tne screen as 
you type. 

• Snitl and sfiift tick lor upper case 

• Search. Replace, and Automatic Search & Replace 

• Automatic tabbing 

• Odd and even page user -definable headers looters and 
page number lines 

• User-deltnable tinespacing. sheet size top left and 
bottom margins. 




• Move bloc* ol text 

• Copy block of text to disk 

• inseri block of text from disk 

• Examine disk directory on any disk and kill tiles white 
editing 

• Full screen editing of EOTASW and BASIC text tiles 

• Automatic renumbering for EOTASM' and BASIC hies 

• Prim contents of screen function 

• Pnm previewing lormats text, inserts headers, numbers 
pages, etc on the screen without printing it on paper 

• Page by page pausing capability tor sheet ted printers 

• Supports Doth parallel and serial printers 

• Punier control code access 

• Supports proportional spaced justifying on Centronics 
73? and Line Printer IV 

• Also supoorts special capabilities of Epson MX-80 
Microtme O^abio. Slarwriter, and Qume printers 

• -an be usee wiin any TRSOOS* compatible d'sk 
operating system 



Note Some teaiures will only work it your printer has the mecnarucal capaoitily 



GUARANTEE 

Many word processmg systems claim theirs are the besi. but lew would dare lo 
guarantee them. Not us! We are confident that you win find ZORLOF to be the 
most useful word processing system for the money, or you can return ii for a full 
refund, and you may have up to 30 days to decide. 



ANUBC ^ $70.00 



ANITEK 

Software Products 

P.O. Box 1136 

Melbourne, FL 32935 

(305) 259-9397 



Spectty Modal I or ill when ordering. Add 12,00 
shipping & handling. Florida residents add SS 
sales lax. Visa and Master Card accepted, 
checks require 3 weeks to clear bank. 

'Trademarks ot Tandy Corporation and Apparat. inc 



RIBBONS 

Low Price • FREE Shipping 

SATISFACTION GUARANTEED 

MX-80 Cartridge 



1-2 



price each in quantity of 
3-5 6-11 12-23 



24-47 



8.95 8.41 7,90 7.43 6.99 



RIBBON LOOPS 

new ribbon for your old cartridge 

top quality nylon • standard matrix ink 

price each in quantity of 
1-2 3-5 6-11 12-23 24 47 

3.95 3.63 3.34 3.08 2.83 
7.86 7.23 6,65 6.12 5.63 
2,92 2.69 2.47 2.27 2.09 
2.26 2.08 1.91 1.76 1.62 



MX-70/ MX-80/ MX-100 
MX-100 double length 
Decwriter LA34 
Radio Shack 26-1418 



New cartridges are available in black ink only. 
Loops are available in blue or black ink (same price). 
You may mix any combination for quantity price breaks. 
Ribbon loops include DO-IT-YOURSELF INSTRUCTIONS. 

VISA DATA SYSTEMS MasterCard 

(305) 788-2145 • Box 99 • Fern Park, FL 32730 
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680 IFSN(1,NS)<>0THENSN(2,NS)=SN(2,NS)-1 

690 LPRINT STR$(SN(2,NS));7"; RIGHT$(STR$(SN(1,NS)), 

LEN(STR$(SN(1,NS)))-1);"-";RIGHT$(STR$(SN(3,NS)), 

LEN(STR$(SN(3,NS)))-1) 

700 NEXTX 

705 ' PROVISION FOR THERE BEING MORE THAN 40 FPDE'S. 

710 IFNF>NSTHENLPRINT"DISK CONTAINS > 40 ENTRIES • RUN 

DIRCHECK FOR COMPLETE SECTOR/BYTE COUNT LIST" 

715 ' FINISHED • RETURN TO START. 

720 LPRINTSTRING$(16," ") ; "COPYRIGHT (C) 1981 BY MACSWAIN 
ENTERPRISES" :GOTO120 

721 ' 

722 ' 

723 ' 

724 '* FILE PRIMARY DIRECTORY ENTRY (FPDE) 

725 ' 

727 ' (UPON ENTRY A=BYTE 0, SECTOR 2, AND X=REL NO OF FPDE 
(0-63). 

728 ' GET NAME OF FILE IN N2$. ADD ONE TO FPDE COUNT. 
730 N2$="":FORS=5T012 

740 N1$=CHR$(PEEK(A+(X*32)+S)) 
750 N2$=N2$+N1$ 

760 NEXTS:IFPEEK(A+(X*32))<128THENFP=FP+1 
765 ' IS THERE A FILE NAME EXTENSION? 
770 IFPEEK(A+(X*32)+13)>32THENN2$=N2$+CHR$(47)ELSEN2$=" 
"+N2$+" ":GOTO810 
775 ' ADD FILE EXTENSION TO NAME. 
780 F0RS=13T015 

790 N2$=N2$+CHR$(PEEK(A+(X*32)+S)) 
800 NEXTS 

805 ' GET NO OF SECTORS IN SEC. 
810 SEC=(PEEK(A+(X*32)+21)*256)+PEEK(A+(X*32)+20) 
815 ' BYPASS ALL SYSTEM AND INVISIBLE FILES ON 'LENGTH' 
LISTING? 

820 IFY$=*"ANDPEEK(A+(X*32))>16THEN850 
825 ' BUILD 'FILE LENGTH' ARRAY SN$(NAME), SN(SECTORS, 
BYTES, EXTENTS). 

830 NF=NF+1:SN$(NF)=N2$:SN(1,NF)=PEEK(A+(X*32)+3):SN(2,NF)=SEC 
835 ' IF AN FXDE FOR 'LENGTH' LISTING, SHOW AS SUCH. 
840 IFPEEK(A+(X*32))>127THENSN$(NF)=" •• FXDE •• ": POKE 
A+(X*32)+1,0 

845 ' CALCULATE TOTAL GRANS AND SECTORS ASSIGNED TO FILE. 
850 GR=INT((SEC/5)+.8):SEC=5*GR 

855 ' GRANUAL COUNT 'SO FAR' IS PICKED OFF THIS NORMALLY 
UNUSED (AND ZERO) BYTE. ONLY FXDE ENTRIES WE HAVE PREVIOUSLY 
HANDLED WILL CONTAIN SIGNIFICANT AMOUNTS. Z1=NUMBER OF 
EXTENTS FROM FXDE'S (IF ANY). 
860 GC=PEEK(A+(X*32)+2)+l:Zl=PEEK(A+(X*32)+l) 

865 ' START OF CHECKING POTENTIAL 5 EXTENTS. 

866 ' LOAD SN ARRAY • SEE LINE 815. 

870 FORS=22TO30STEP2:IFY$=""ANDPEEK(A+(X*32))>16 THEN 880 

ELSE SN(3,N F)=Z1 

875 ' TR=TRACK NUMBER. 

880 TR=PEEK(A+(X*32)+S) 

885 ' GN=NUMBEH OF CONTIGUOUS GRANS THIS EXTENT (MINUS 

ONE). 



890 GN=PEEK(A+(X*32)+S+1) 

895 ' IS THIS EXTENT AN FXDE POINTER? 

900 IFTR=254THENRETURN 

905 ' THIS INDICATES PREVIOUS ONE WAS THE LAST? 

910 IFTR=255ANDGN=255THENRETURN 

914 ' ADD 1 TO EXTENT COUNT Zl . 

915 ' LL=1ST OR 2ND GRAN ON TRACK. IS THIS ONE THE 1ST? 
920 Z1=Z1+1:LL=1:IFGN<32THEN940 

925 ' 2ND GRAN. STRIP HIGH ORDER BITS. 

930 GN=GN-32:LL=2 

935 ' ADJUST GRAN COUNT TO ACTUAL NUMBER. 

940 GN=GN+1 

945 ' GP=GRAN CONTROL. 

950 GP=i 

955 ' MOVE NAME TO ARRAY. 

960 YN$(LL,TR+1)=N2$ 

965 ' MOVE TOTAL GRANS TOO. 

970 Y(LL,3,TR+1)=GR 

975 ' IF THIS AN FXDE, PICK UP CORRECT TOTAL GRANS FROM 

NORMALLY UNUSED BYTE 4. 

980 IFGR=0THENY(LL,3,TR+l)=PEEK(A+(X*32)+4) 

985 ' MOVE 'SO FAR' GRAN COUNT TO ARRAY. 

990 Y(LL,2,TR+1)=GC 

995 ' INCREMENT 'SO FAR' GRAN COUNT. 

1000 GC=GC+1 

1005 ' TOTAL GRANS THIS EXTENT AND NUMBER ASSIGNED TO ARRAY 

EQUAL? 

1010 IFGN=GPTHENNEXTS 

1015 ' INCREMENT GRAN CONTROL. 

1020 GP=GP+1 

1025 ' GRAN 1ST OR 2ND TO ARRAY? 

1030 IFLL=1THENLL=2 : GOTO960 

1035 ' IT WAS 2. RESET LL AND INCREMENT TRACK NUMBER. 

1040 LL=1:TR=TR+1 

1050 GOTO960 

1053 ' 

1054 ,„**„„** FILE EXTENSION DIRECTORY ENTRY (FXDE) 

* * * $ # # * # # $ 

1055 ' 

1056 ' (UPON ENTRY, A AND X ARE SAME AS IN LINE 727). 

1057 ' MOVE FILE NAME (COMPLETE) TO N2$. Z3=ADDRESS OF FPDE 
(BYTE 1) EXTENT COUNTER. 

1060 Z3=A+(X*32)+1:N2$="":F0RS=5T015 

1070 N1$=CHR$(PEEK(A+(X*32)+S)) 

1080 N2$=N2$+N1$: NEXTS 

1085 ' CALCULATE TOTAL GRANS ASSIGNED TO FILE. 

1090 SEC=(PEEK(A+(X*32)+21)*256)+PEEK(A+(X*32)+20) 

1100 GR=INT((SEC/5)+.8) 

1105 ' Q=FIRST BYTE OF FPDE AND SUBSEQUENT FXDE(S). 

1110 Q=A+(X*32) 

1120 GOTO1220 

1125 ' AN FPDE (OR FXDE) WAS JUST HANDLED THAT HAD AN FXDE 
POINTER. N2$ HAS FILE NAME, TC CONTAINS TOTAL GRANS 'SO FAR', 
AND GR IS TOTAL GRANS FOR FILE. 

1126 ' TR CONTAINS '254' AND GN HAS THE POINTER TO NEXT FXDE. 
CALCULATE THE NEW ADDRESS OF THE FIRST BYTE AND PUT IT IN Q. 
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113)3 G1=INT(GN/16) 

114)3 GN=GN-(G1*16) 

115)3 Q=A+(GN*256)+(G1*16) 

1155 ' PUT TOTAL GRANS 'SO FAR 1 IN REL BYTE 2, 

116)3 P0KEQ+2.TC 

1165 ' PUT TOTAL GRANS IN REL BYTE 4. 

117)3 P0KEQ+4.GR 

1175 ' PUT FILE NAME IN REL BYTES 5 TO 15 FROM N2$. 

118)3 FORN3=0TO10 

119)3 POKEQ+5+N3,ASC(MIO$(N2$,N3+l,l)) 

12)3)3 NEXTN3 

1205 ' XO=TOTAL NUMBER OF FXDE'S ON DISKETTE. 

121)3 XO=XO+l 

1215 ' LOOK AT THE EXTENTS- GET NO OF GRANS 'SO FAR'. 

122)3 TC=PEEK(Q+2) 

1225 ' POTENTIAL 4 EXTENTS + A POINTER (OR FILE END). 

123)3 FORS=22T03)3STEP2 

1235 ' GET TRACK AND NO OF CONTIGUOUS GRANS. 

1236 ' PUT NUMBER OF EXTENTS (LESS 4 FOR FPOE ITSELF) IN 
FPOE COUNTER (BYTE 1). 

124)3 TR=PEEK(Q+S):GN=PEEK(Q+S+l):IFZ2>3THENPOKEZ3,Z2-4 

1245 ' IS THIS EXTENT AN FXOE POINTER? 

125)3 IFTR=254THEN113)3 

1255 ' WAS LAST EXTENT THE FINAL ONE THIS FILE? 

126)3 IFTR=255ANDGN=255THENRETURN 

1265 ' STRIP HIGH ORDER BITS, GET ACTUAL GRAN COUNT & ADO 

TO TOTAL 'SO FAR' COUNT. GO TO NEXT EXTENT, INCREMENT EXTENT 

COUNT 11. 

127)3 Z2=Z2+l;IFGN>31THENGN=GN-32 

128)3 TC=TC+GN+1:NEXTS 

1285 ' MACHINE LANGUAGE PROGRAM READS DIRECTORY (TRACK 11H, 
SECTORS (3-9) INTO MEMORY, STARTING AT B000H. 

1286 ' IF A DISK ERROR OCCURS, A MESSAGE WILL BE PRINTED & 
THE PROGRAM HALTS. PRESSING ANY KEY WILL CAUSE ANOTHER READ 
ATTEMPT. 

129)3 DATA 243,62,1, 5)3,225,55,33,236,55,54,3, 1,(3, (3,2)35, 96,(3, 

2)33, 7)3, 32, 252, 2)35, 2)31,1, 14, 1)3|33, (3, 176, 17, (3, 17 

13)3)3 DATA 2)35,61,16)3,4)3,6,13,2)3)3,28,36,24,245,33,124,16)3,6, 

12, 126, 44, 2)35, 51, (3,16, 249, 2)35, 73, (3,195, (3,16)3, 2)35, 65 

131)3 DATA 16)3,2)3)3,197,213,229,62,1,5)3,225,55,237,83,238,55, 

33,236,55,54,19,197,193,197,193,2)33,7)3,32,252,54,136 

132)3 DATA 193,197,193,197,17,239,55,24,13,23)3,149,61,32,10, 

126,203,79,40,246,26,2,3,24,246,175,182,54,208 

1330 DATA 225,209,193,201,13,68,73,83,75,32,69,82,82,79,82,0 

W. G. MacSwain 
MacSwain Enterprises 
151 Cass Avenue 
Agincourt, Ontario 
Canada MIT 2B5 ■ 

PROGRAM CONVERSION 

continued from page 56 

and a numeric portion. Therefore, this line could be properly 
converted as follows: 

20 OPEN "0",1,"WEEKLY"+STR$(GN0) 

PRINT D$; "WRITE WEEKLY" ;GN0 

PRINT D$: PRINT #1; "WRITE WEEKLY" ;GN0 



By now we know to ignore D$'s and to treat numerics as 
strings when converting APPLE disk statements to the TRS-80. 
However, here we have an exception. The WRITE command 
on the TRS-80 is part of the OPEN command, since a file 
must always be defined as an input file or as an output file. 
Therefore, WRITE statements on APPLE programs may be 
deleted on TRS-80 programs, as long as the READ or WRITE is 
incorporated into an OPEN statement. In some cases, it may 
be necessary to CLOSE and re-OPEN a file on the TRS-80, 
whereas on the APPLE a new OPEN statement would be 
necessary. 

CONCLUSION — LOOKING 
TOWARDS THE FUTURE 

This concludes this month's tips on program conversion. As 
always, I am open to feedback of any type concerning the 
MODELS l/ll/lll, APPLE, PET/CBM, IBM, ATARI, and CP/M. 
In future months, I will expand upon the topics covered over 
the last 9 issues. At present, I expect to concentrate on the 



APPLE, PET, and IBM computers, 
depending upon reader interest. 

Richard Kaplan 

H & E Computronics 

50 N. Pascack Road 

Spring Valley, NY 10977 ■ 



but this may change 



TRS-80™ Model 1 & 3 Software 
from HOWE SOFTWARE 

SYSTEM DIAGNOSTIC $99.95 

Tests every component of your TRS-80 Model 1 or 3: ROM, RAM, Video 
Display, Keyboard, Cassette Recorder, Line Printer, Disk Drives (single 
or double density, 35, 40, or 80-track drives), RS-232-C Interface. 

SMART TERMI NAL $74.95 

Model II CP/M Version $79.95 

The intelligent telecommunication program. Automatic transmission 
and reception of files. True BREAK key. Cassette and disk files compatible 
with both SCR I PS IT™ and Electric Pencil™. Same program supports both 
cassette and disk systems. 

HOME BUDGET $49.95 

Cassette Version $29.95 

Analyzes your income and expenditures, and prints monthly and year- 
to-date summaries showing income tax deductions. Complete instruc- 
tions on customizing to your own budget. 

SMALL BUSINESS ACCOUNTING S59.95 

Cassette Version $29.95 

Based on Dome Bookkeeping Record #612, keeps track of income, 
expenditures, and payroll for a small business. Income and expenses 
can be entered on a daily, weekly, or monthly basis. Program computes 
monthly, through last month, and year-to-date summaries. 

MAILING LIST $69.95 

Maintains mailing lists of up to 1 326 names on a single formatted diskette. 
Add, change, delete, find names, sort by information in any field, print 
up to 4- line labels of 32 characters per line on 1 ,2, 3, or 4 column labels. 

Specify TRS-80 Model 1 or 3. 

Add $3.00 for postage and handling 
New York State residents add 4 %% sales tax. 

H & E Computronics 

50 N. Pascack Rd., Spring Valley, NY 1 0977 

(800) 431-2818 
(914) 425-1535 
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Department of the Treasury — Internal Revenue Service 0^0^00 i 

U.S. Individual Income Tax Return US/uZ j 



(': OMB No. 1545-0085 



Use 
IRS 
label. 
Other- 
wise, 
please 
print 
or type. 



Your first name and iniiiat (if joint return, also give spouse's name and initiatj 



Present home address (Number and street, including apartment number, or rural itute) 



Your social security number 



Spouse's social security no. 



City, town or post office, State and ZIP code 



Your occupation 



sag 



use's occupation 



Presidential 

Election Campaign V if joint return, does your spouse want $1 to go to this fund? . 



► Do you want $1 to go to this fund? 
I 



Yes 
Yes 



^ 



£»tion^^ 



No 
No 



Note: Checkfng "Ves" will 
not increase your tax or re- 
duce your refund. 



IPI 



micromatic TRS-8C* Owners Dorcur€wn 

PROGRAMMING 
COMPANY 



Taxes Like An Expert with TAX/SAVER II 

' TRS-80 is a trademark of the Radio Shack Division of Tandy Corp. 



TM 



ECR MODEL l 9 II** cr MODEL III 

TAX/SAVER II™ — The tax help program for the layman, the professional accountant or tax preparer. 

New and expanded, TAX/SAVER 11™ offers a different approach to preparing a tax return. Like the original, the new version has 

the tax regulations programmed in so it is more than just a calculator. Designed for non-accountants, TAX/SAVER 11™ asks you 

questions, just as an accountant does. Based on your answers, it leads you through the tax maze to your lowest legal tax. Then it 

tells you how to fill in your return, line by line, or it will output to a printer. 

TAX/SAVER 11'" also has speed features for those doing more than one return. Optional program instruction and tax text make 

TAX/SAVER 11™ the practical system for professional preparers as well. TAX/SAVER 11™ has full disk storage of data files (with 

optional password protection). 

The manual includes information on special tax areas, lists of possible deductions and a tax glossary. 

TAX/SAVER 11'" compares itemized deductions to national averages; automatically computes certain limitations - for example, on 

medical deductions and contributions; checks for excess F1CA; helps determine dependents. Yet, TAX/SAVER 11™ offers the 

privacy and convenience of home use. 

The user-oriented design with special screen formatting makes data entry, verification and correction easy. Yet you are always in 

control. You can skip any help features or parts of the program that you don't need. 

TAX/SAVER 11'" 

• Completes long and short forms (1040 & 1040A) 

• Itemized Deductions - Schedule A 

• Interest & Dividends - Schedule B 

• Tax Calculation - Tables, Rates 

• Tax Savings Methods - Income Averaging, Maximum Tax, Alternative Tax 

• Business Income - Schedules C & SE 

• Capital Gains - Schedule D 

• Allows you the privacy of your own home 

• Lets you help friends and relatives with their taxes 

• Has built-in aids. Answers specific questions like "Is my father my dependent?" and "Are my deductions reasonable?" 

• Manual includes 1982 tax forms, information on special tax areas, lists of possible deductions, and glossary of tax terms 

• Completes long and short forms including itemized deductions, excess F1CA, earned income credit, community property, 
tax calculation (comparing all possible filing statuses in one run) 

• Tax regulations are programmed in by our team of accountants. Just type in your figures & you've done your own tax return 

• Helps you find the lowest tax 

• Discounts on yearly updates 

• Prints out on standard IRS forms overlays or plain tractor feed paper 

• Accepts totals from all other tax forms not listed here 



JVow ^M/ @*U*Uou$ 





REVIEWS: 

"...well designed and easy to use" - D. Lubar, Creaiive Computing t/81 
"...TAX/SAVER'" may very well live up to its name" 

M. Tannenbaum, CPA, 80 Microcomputing 2/81 

CUSTOMERS: 

"For the price it can't be beat, t am looking forward to next year. With this 
program t finish my filing in 2 hours. Thank you." 

"Excellenl presentation. Tutorial style is one of its most attractive attri- 
butes. Finally, a program I can realty use!" 

PROFESSIONALS: 

"This is the perfect program for those doing taxes for others for reasonable 
fees. It was obviously written by folks (hat know both programming and tax 
law." "TAX/SAVER"" is superior." 



PROFESSIONAL TAX/FORECASTER™ 

TAX/FORECASTER'" the quick tax estimator (with printout) for both 1982 and 1983 lets you revise its estimate by merely changingone or more lines. Use it as a tax planner either 
together with TAX/SAVER 11™ or by itself. TAX/FJ3RECASTER'" lets you quickly ask all of your WHAT IF? Questions and instantly recalculates your taxes. A great tax preparation 
aid for both the layman and professional. Includes Income Averaging and disk storage of Client files. 

• Both TAX/SAVER 11'" and TAX/FORECASTER™ are tax-deductible • Discounts are given on yearly updates • Free tax newsletter is issued annually. 
With the combined package TAX/SAVER 11" and TAX/FORECASTER", you can now have, at an affordable price, the power to predict, control and reduce your tax liability. 



D TAX/SAVER 11" (MOD 1 & 111) $139.95 - Manual Included 

D PROFESSIONAL TAX/FORECASTER" (MOD 1 & 111) $99.95 ($79.95 if purchased with TAX/SAVER 11") 

D UPDATE for Registered TAX/SAVER IP Owners $83.95 

D TAX FORM OVERLAYS $19.95 

D TAX/SAVER 11" - Model 11** Version $199.95 

D PROFESSIONAL TAX/FORECASTER" - Model 11** Version $129.95 



SYSTEM REQUIREMENTS 

D TRS-80 Model 1 with 32K and 2 disk drives 
D TRS-80 Model 111 with 32K and 2 disk drives 
D TRS-80 Model 11** with 64K and 1 disk drive 
** Availability of Model 11 programs uncertain at press time. 
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50 N PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 



ALL PRICES & SPECIFICATIONS SUBJECT TO CHANGE 
- DELIVERY SUBJECT TO AVAILABILITY - 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY. STATE) 

(800) 431-2818 





HOUR 
24 ORDER 
LINE 



IP- (914) 425-1535 



* 30-Day money back guarantee 

* ADD $3.00 FOR SHIPPING IN UPS AREAS 

* ADD $4.00 FOR C.O.D. OR NON-UPS AREAS 

* ADD $5.00 TO CANADA AND MEXICO 

* ADD PROPER POSTAGE OUTSIDE U.S., CANADA & MEXICO 



E 



CQMPUTRQNICS 



N 
C. 



> EVERYTHING FOR YOUR TRS-80 " • ATARI " • APPLE" • PET" • CP/RT" • XEROX " • IBM " • 

• TRS-80 k a trademark of the Radio Shack Division of Tandy Corp. - • ATARI is a trademark of Atari Inc. - • AWU is a trademark of Apple Corp. - • PIT is a trademark of Commodore 
• CP/M is a trademark of Digital Research - 'XEROX is a trademark of Xeron Corp. - • IBM is a trademark of IBM Corp. 



BUSINESS PAC 1 00 




Software 



100 Ready-To-Run 
Business Programs 



(ON CASSETTE OR DISKETTE) Includes 128 Page Users Manual 

Inventory Control Payroll Bookkeeping System Stock Calculations. 

Checkbook Maintenance.....Accounts Receivable.... Accounts Payable 



BUSINESS 100 PROGRAM LIST 



NAME DESCRIPTION 

1 RULE78 Interest Apportionment by Rule of the 78s 

2 ANNU1 Annuity computation program 

3 DATE Time between dates 

4 DAYYEAR Day of year a particular date falls on 

5 LEASEINT Interest rate on lease 

6 BREAKEVN Breakeven analysis 

7 DEPRSL StraightBne depreciation 

8 DEPRSY Sum of the digits depreciation 

9 DEPRDB Declining balance depreciation 

10 DEPRDDB Double declining balance depreciation 

11 TAXDEP Cash flow vs. depreciation tables 

12 CHECK2 Prints NEBS checks along with daily register 

13 CHECKBK1 Checkbook maintenance program 

14 MORTGAGE/A Mortgage amortization table 

1 5 MOLTMOM Computes time needed for money to double, triple, 

16 SALVAGE Determines salvage value of an investment 

17 RRVARIN Rate of return on investment with variable inflows 

18 RRCONST Rate of return on investment with constant inflows 

19 EFFECT Effective interest rate of a loan 

20 FVAL Future value of an investment (compound interest) 

21 PVAL Present value of a future amount 

22 LOANPAY Amount of payment on a loan 

23 REGWITH Equal withdrawals from investment to leave over 

24 SMPDISK Simple discount analysis 

25 DATEVAL Equivalent & nonequivalent dated values for oblig. 

26 ANNUDEF Present value of deferred annuities 

27 MARKUP * Markup analysis for items 

28 SWKFUND Sinking fund amortization program 

29 BONDVAL Value of a bond 

30 DEPLETE Depletion analysis 

31 BLACKSH Black Scholes options analysis 

32 STOCVAL1 Expected return on stock via discounts dividends 

33 WARVAL Value of a warrant 

34 BONDVAL2 Value of a bond 

35 EPSEST Estimate of future earnings per share for company 

36 BETAALPH Computes alpha and beta variables for stock 

37 SHARPE1 Portfolio selection model-i.e. what stocks to hold 

38 OPTWRITE Option writing computations 

39 RTVAL Value of a right 

40 EXPVAL Expected value analysis 

41 BAYES Bayesian decisions 

42 VALPRHF Value of perfect information 

43 VALADWF Value of additional information 

44 CfnUTY Derives utility function 

45 SIMPLEX Linear programming solution by simplex method 

46 TRANS Transportation method for linear programming 

47 EOQ Economic order quantity inventory model 

48 QUEUE1 Single server queueing (waiting line) model 

49 CVP Costvolume-profit analysis 

50 CONDPROF Conditional profit tables 

51 OPTLOSS Opportunity loss tables 

52 FQCJOQ Fixed quantity economic order quantity model 

53 FQEOWSH As above but with shortages permitted 

54 FQEOQPB As above but with quantity price breaks 

55 QUEUECB Cost-benefit waiting line analysis 

56 NCFANAL Net cash flow analysis for simple investment 

57 PROFIND Profitability index of a project 

56 CAP1 Cap- Asset Pr. Model analysis of project 



59 WACC Weighted average cost of capital 

60 COMPBAL True rate on loan with compensating bal. required 

61 DISCBAL True rate on discounted loan 

62 MERGANAL Merger analysis computations 

63 F1NRAT Financial ratios for a firm 

64 NPV Net present value of project 

65 PRfriDLAS Laspeyres price index 

66 PRINDPA Paasche price index 

67 SEASIND Constructs seasonal quantity indices for company 

68 T1METR Time series analysis linear trend 

69 TIMEMOV Time series analysis moving average trend 

70 FUPRINF Future price estimation with inflation 

71 MAILPAC Mailing list system 

72 LETWRT Letter writing system-links with MAILPAC 

73 SORT3 Sorts list of names 

74 LABEL1 Shipping label maker 

75 LABEL2 Name label maker 

76 BUSBUD DOME business bookkeeping system 

77 T1MECLCK Computes weeks total hours from timeclock info. 

78 ACCTPAY In memory accounts payable system-storage permitted 

79 INVOICE Generate invoice on screen and print on printer 

80 INVENT2 h memory inventory control system 

81 TELDIR Computerized telephone directory 

82 TTMUSAN Time use analysis 

83 ASSIGN Clse of assignment algorithm for optimal job assign. 

84 ACCTREC In memory accounts receivable system-storage ok 

85 TERMSPAY Compares 3 methods of repayment of loans 

86 PAYNET Computes gross pay required for given net 

87 SELLPR Computes selling price for given after tax amount 

88 ARBCOMP Arbitrage computations 

89 DEPRSF Snking fund depreciation 

90 UPSZONE Finds UPS zones from zip code 

91 ENVELOPE Types envelope including return address 

92 AUTOEXP Automobile expense analysis 

93 INSF1LE Insurance policy file 

94 PAYROLL2 In memory payroll system 

95 DILANAL Dilution analysis 

96 LQANAFFD Loan amount a borrower can afford 

97 RENTPRCH Purchase price for rental property 

98 SALELEAS SakHeaseback analysis 

99 RRCONVBD Investor's rate of return on convertable bond 
100 PORTVAL9 Stock market portfolio storage-valuation program 



D CASSETTE VERSION $99.95 

D DISKETTE VERSION *99.95 

□ TRS-80* MODEL U VERSION $149.95 

ADD $3.00 FOR SHIPPING IN UPS AREAS 
ADD $4.00 FOR COD. OR NON-OPS AREAS 
ADD $5.00 TO CANADA AND MEXICO 
ADD PROPER POSTAGE OUTSIDE OF U.S., 
CANADA AND MEXICO 

•CQMrWRQNICS- 
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SO N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 



| ASK FOR OUR 64-PAGE CATALOG 



HOUR iW2 
O A 0RD £R 

-+*k\ UNE *«« 




ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE*** 
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WABASH WARRANTY FLEXIBLE DISKS 




wabash 

5-YEARWARRANTY 

8" Maxi-Myte 
Flexible Disks 

The only 8" diskettes guaranteed 
to perform for a full five years. 

Single Side / Double Density 



$39 



95 



EACH BOX OF 10 



wabash 2-year warranty 

5Va" Mini-Myte Flexible Disks 

The only 5 1 /4" diskettes guaranteed 
to perform for a full two years. 



Single Side / Double Density 



$Q495 

^#Tteache 



BOX OF 10 



COATING The Coating process has 
been recently improved by our revolu- 
tionary SR-3000 manufacturing process, 
resulting in a completely uniform surface, 
with excellent adherence to the polyester 
base. The result: consistent signal qual- 
ity which is crucial to all applications, on 
all appropriate drives. 

PUNCHING State-of-the-Art equip- 
ment at the Paoli plant assures precision 
punching and assembly for every Wabash 
diskette. Certification and initialization are 
also care fully supervised at 
this stage, guaranteeing sat- 
isfactory use of Wabash dis- 
kettes for years to come. 

Ask us about our other in-stock 
and ready-to-ship products 
including printer ribbons, 
pressure sensitive labels, 
paper, media storage equip- 
ment, and more! 



CALL TODAY OR SEND COUPON 

800-431-2818 flttttf 914-425-1535 




I 



CQMPLTTfiaNICS 




50 N. Pascack Road 
t Spring Valley, N.Y 10977 




r~| Please send me boxes of 8" Maxi-Myte Flexible Disks at $39.95 

*— ' per box. Please add $3.00 for shipping. 

I - ] Please send me boxes of 5 1 /4" Mini-Myte Flexible Disks at $34.95 

*— ' per box. Please add $3.00 for shipping 

I □ Please send me more information about other Computronics products. 



Q] Check enclosed Q 

Credit Card No.. 
Name 



VISA 



_Exp._ 



Address 

City/State/Zip_ 
Phone ( 



I 
I 
I 




The Original Magazine for Owners of the TRS-80™ Microcomputer 

MODEL I • MODEL 11/16 • MODEL III • POCKET COMPUTER • COLOR COMPUTER 



Software 
(or TRS-80 

Owners 



CQMPJTRQN2CS 

MONTHLY NEWS MAGAZINE 



I 

JJ Monthly 

™ Newsmagazine 
Q for TRS-80 

Owners 




• PRACTICAL APPLICATIONS 

• NEW EXPANDED BUSINESS 
SECTIONS 

• GAMBLING 

• GAMES 

• EDUCATION 

• PERSONAL FINANCE 



• BEGINNER'S CORNER 

• NEW PRODUCTS 

• SOFTWARE EXCHANGE 
•MARKETPLACE 

• QUESTIONS & ANSWERS 

• PROGRAM PRINT OUTS 
...and MORE! 



YOUR CHOICE ^ 



FREE 



with your Subscription or Renewal 



NANOS SYSTEMS CORP. 

TRS-80 At Your 

Fingertips Complete quick 
reference guide to basic, assem- 
bly language* and graphic codes 
— all at your fingertips for all 
TRS-80 computers (specify 
computer). 

' Assembly Language Section N/A for Color Compuler 



B. 



OR 



A Word Processor, 
Data Management 
System and Cleanup 

(A maze game) All on cassette. 
(Add $3 for diskette, add $5 
for modified MOD-ll/16 diskette 
version — N/A on color computer 
or pocket computer.) 



■CQMPLITRQNICS- 



CALL TOLL FREE 

800-431-2818 



50 North Pascack Road 

Spring Valley. New York 10977 ,„ . , _ 

K M ' (Outside of New York State) 

□ One Year Magazine Subscription $24 □ New □ Renewal 

□ Two Year Magazine Subscription $48.00 □ New □ Renewal 
D Sample Issue $4. □ Mod 11/16 Newsletter Subscription $18 
Your Choice: TRS-80* at Your Fingertips □ or Word Processor/Data Management □ 
Model □ Model 11/16 □ Model III □ Color Computer □ Pocket Computer □ 



24 HOUR ORDER LINE 

914-425-1535 

E3 S3 



NEW! 



NEW! 



M0D-II/16 

NEWSLETTER 

$18/Year (or 12 issues) 



Name 




Address 






City 


State 


Zip 




Signature 






Credit Card Number 








Expiration Date 





Add $12/Year (Canada, Mexico)— Add $24/ Year Air Mail oulside ol U.S.A., Canada, and Mexico 
' All Prices and Specifications Subjecl lo Change 

" TRS-80 is a trademark ot the Radio Shack Division ot Tandy Corp. 




© Includes INR OUT, multi-dimensional arrays 

© About 40 lines/second. 

© Only 10% -35% code growth. 

© Even unstructured for-next loops, 
variable-bound arrays. 

$99.95 +S2 Shipping 
CAadd6% 



M&m& 



Allen Gelder Software 

(415)387-3131 
Boi 11721 San franciSCO CA 94101 



EDIT Full screen BASIC editor. $40 




ADVERTISING DIRECTORY 

8 ABM Products 1-800-854-1555 

59 Ace Computer Products of Florida 

5 Alpha Products 1-800-221-0916 

61 Anitek Software Products 305-259-9397 

59 A. R. Systems 

9 Aspen Software Company 505-281-1634 

21 Bealin Corp 301-490-2477 

34-35 BT Enterprises 800-645-1 1 65 

Cover 2 The Business Division 305-830-8194 

37 Compass Systems, Inc 603-329-5603 

43 CompuAdd Corp 1-800-531-5255 

7 Compusoft Publishing 800-854-6505 

25 Computech 201-364-3005 

59 Computer Plus 617-486-3193 

51 Computer Shopper 1-800-327-9920 

29,41 Cosmopolitan Electronics Corp. 313-397-3126 

45 Data Resources 303-698-1 263 

61 Data Systems 305-788-2145 

8 EAP Co 81 7-498-4242 

4 Eighty System Newsletter 

68 Allen Gelder Software 

59 GTI Electronics 717-386-4032 

39 Hacks 713-455-3276 

Cover 3 H & E Computronics 1-800-431-2818 

64-67 H & E Computronics 1-800-431-2818 

10 HPB Vector Co. 

61 Illustrated Memory Banks/IMB. 413-663-9648 

29 Kwik Software 417-326-7154 

Cover 4 Leading Edge Products, Inc. . 1-800-343-6833 

29 Lemons Tech Services 417-345-7643 

61 M.E.C.S. 

59 Micro Architect 

23 Micro Compatible 

1 7 Microsette Co 41 5-968-1 604 

3 Micro Systems Software 1-800-327-8724 

37 Nanos Systems Corp 317-244-4078 

57 Pocket Computer Newsletter 

3,11,13,15 Powersoft 800-527-7432 

1 9 PMC Software 41 5-962-031 8 

7 Precision Prototypes 512-526-4758 

26-27 Racet Computes 714-997-4950 

8 Realty Software Company 213-372-9419 

31 Software Options, Inc 1-800-521-6504 

6 SOURCELiB Systems 800-223-1087 

10 Swayback Software 609-778-0811 

10 Virginia Micro Systems 703-491-6502 



68 November 1982 
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Introducing the Most Powerful 
Business Software Ever! 

TRS-80™ (Model 1, II, 111, or 16) • APPLE™ • IBM" • OSBORNE™ • CP/M™ • XEROX™ 
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The VersaBusiness Series 

Each VersaBusiness module can be purchased and used independently, 
or can be linked in any combination to form a 'complete, coordinated business system. 



VeRSARECEIVABLES'" $99.95 

Versa Receivables" is a complete menu-driven accounts receivable, invoicing, and 
monthly statement-generating system. It keeps track of all information related to who 
owes you or your company money, and can provide automatic billing foT pas; : 
counfs. VERSA RECEIVABLES" prints all necessary statements, invoices, and summary 
reports and can be linked with VERSALEDGER II™ and Versa INVENTORY ™. 

VERSAPAYABLES™ $99.95 

VERSA Pa VABLES"" is designed to keep track of current and aged payables, keeping you 
in touch wiTh all information regarding how much money your company owes, and to 
whom. VERSA PAY ABLEST maintains a complete record on each vendor, prints checks, 
check registers, vouchers, transaction reports, aged payables reports,, vendor reports, 
and more. Wjth Versa Payables - " , you can even lei your computer automatically select 
which vouchers are to be paid. 

VeRSAPAYROLL™ $99.95 

Versa Payroll'* is a powerful and sophisticated, but easy to use payroll system that 
keeps track of all government-required payroll inlormation. Complete employee records 
are maintained, and all necessary pays isare performed automatically, with 

totals displayed on screen for operator approval. A payroll can he run totally, automati- 
cally, or Ihe operator can intervene to prevent a check from being printed, or to alter 
information on it. If desired, totals may be posted to the VersaLedger If system. 

VERSAlNVENTORY™ $99.95 

VERSA INVENTORY'" is a entory control system that gives you instant access 

to data on any item. VERSA In VENTORV" keeps track of ail intormation related to what 
items are in stock, out of stock, on backorder, etc., stores sales and pricing data, alerts 
you when an item falls below a preset reorder point, and allows you to enter and print 
invoices directly or to link with the VERSA RECEIVABLES'" system. VERSA INVENTORY 1 ' prints 
all needed inventory listings, reports of items below reorder point, inventory value re- 
ports, period and year-to-date sales reports, price Hsls. inventory checklists, etc. 

•CQMPIJTRQNICS; 

50 N. PASCACK ROAD, SPRING VALLEY, NY. 10977 



VersaLedger ir $149.95 

Versa Ledger IP* is a complete accounting system that grows as your business 
grows. VersaLedger IP" can be used as a simple personal checkbook register, 
expanded to a small business bookkeeping system or developed into a large 
corporate general ledger system without any additional software, 

• VersaLedger n™ gives you almosl unlimited storage capacity 

(300 to 10,000 entries per month, depending on the system), 

• stores all check and general ledger information forever. 

• prints traelor feed checks, 

• handles multiple checkbooks and general ledgers, 

• prints 17 customized accounting reports including check registers, 
balance sheets, income statements, transaction reports, account 
listings, etc. 

VersaLedger IP" comes with a professionally-written 160 page manual de- 
signed for first-time users. The VersaLedger IP" manual will help you become 
quickly familiar with VersaLedger IP", using complete sample data files 
supplied on diskette and more than 50 pages of sample printouts. 



SATISFACTION GUARANTEED! 



Every VERSA BUSINESS 1 " module is guaranteed to outperform all oiher competitive systems, 
and ai a fraction q! their cost If you are not satisfied with any VERSABUSINESS" module, you 
may return it within 30 days for a relund , Manuals for any VERSABUSINESS*" module may be 
purchased lor $25 each, credited toward a lateT purchase of that module. 



To Order: 

Write or call Toll-free (800) 43 1-28 18 
|!N. Y.S. residents rail 914-425-1535) 

* add S3 for shipping in UPS areas ■ add S5 to CANADA or MEXICO 

* add S4 for C.O-D. or non-UPS areas * add proper postage elsewhere 

DEALER INQUIRIES WELCOME 

All prices and Specifications subject to change ■' Delivery subject to availability 



1 TRS80 is a trademark of the Radio Shack Division of Tandy Corp *APPLE is a trademark of Applf Corp *IBM is a i rdderrwrk of IBM Corp 'OSBORNE is a trademark »| Osborne Corp 

*/M is a trademark of Digital Research *X£ROX is a trademark ol Xerox Corp. 



THE LEADING EDGE IN PRINTERS 

ONE GREAT LINE. ONE GREAT WARRANTY 

Finally, there's one full family of printers that covers every business or word processing application— 

all from C. Itoh, a company known for packing more product into less price, and all distributed 

exclusively by Leading Edge, a company known for searching out and providing that very thing. 

Which means that one call to one source can get you any printer, any time you need it, for any purpose. 

All backed by a full years' warranty from Leading Edge. (Try that on any other line of printers.) 

THE PRO'S. 

The Prowriters: business printers-and more. The "more" is a dot-matrix process with more dots. It gives you denser, 
correspondence quality copy (as opposed to business quality copy, which looks like a bad job of spray-painting). 
Prowriter 1 120 cps. 80 columns dot matrix compressable to 136. 10" carriage. Parallel or serial interface. 
Prowriter 2: Same as Prowriter, except 15" carriage allows full 136 columns in normal print mode. 

Parallel or serial interface. 



PROWRITER 2 



PROWRITER 



THE STAR. 

The Starwriter F-10. In short (or more precisely, in a sleek 6" high, 30-pound unit), it gives you more 

of just about everything— except bulk and noise— than any other printer in its price range. It's a 40 cps letter-quality 

daisy-wheel with a bunch of built-in functions to simplify and speed up word processing. 

It plugs into almost any micro on the market, serial or parallel. 



SP^AMTER F-TO 




THE MASTER. 

The Printmaster F-10. Does all the same good stuff as the Starwriter except, at 55 cps, the Master does it faster. 
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Distributed Exclusively by Lei 

Call: toll-free 1-800-343-6833; or in Massachusetts call collect 16171 828-8150. Telex 951-624. 



